[ «Исследовать работу функций round, int и frac, применив их к некоторому вещественному х. program n_1; var х: real; begin writeln ( 'Исследование функций round, int, fгас ' ); ...»
Тема: "Программирование линейных алгоритмов"
Задача 1. Числовые типы данных.
Исследовать работу функций round, int и frac, применив их к некоторому вещественному х.
program n_1;
var х: real;
begin
writeln ( 'Исследование функций round, int, fгас ' );
write ( 'Введите x>>' );
readln (x) ;
writeln ( 'Округление - ', round (x));
writeln ( 'Целая часть - ', int (x));
writeln ( 'Дробная часть - ', frac(x))
end.
Запустите программу несколько раз для х {10,2; 10,8; -10,2; -10,8}. Что вы можете сказать о типе результата каждой из этих функций?
Задача 2. Целочисленный тип данных
Составить программу нахождения суммы цифр вводимого с клавиатуры целого трёхзначного числа.
(Трёхзначное число можно представить в виде следующей суммы: х = а 100 + b 10 + с, где а, b, с — цифры числа)
program n_2;
var x, а, b, с, s: integer;
begin writeln ( 'Нахождение суммы цифр трёхзначного числа' );
write ( 'Введите исходное число>>' );
readln (х);
а := х div 100;
b := х mod 100 div 10;
с := х mod 10;
s : = a + b + c;
writeln ( 's= ', s)
end.
Задача 3. Символьный и строковый типы данных
Записать на языке Паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. Затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной.
program n_3;
var a: char; kod: integer; b: string;
begin writeln ('Код и строка');
write ('Введите исходную букву»');
readln (а);
kod := ord (а);
b := chr (kod - 1) + a + chr (kod + 1);
writeln ( 'Код буквы ', a, ' - ', kod);
writeln ( 'Строка: ', b)
end.
Задача 4. Логический тип данных
Написать программу, определяющую истинность высказывания «Число n является чётным» для произвольного целого числа n.
Пусть ans — логическая переменная, а n — целая переменная.
Тогда в результате выполнения оператора присваивания
ans := n mod 2=0.
Переменной ans будет присвоено значение true при любом чётном n и false в противном случае.
program n_4;
var n : integer; ans: boolean;
begin writeln ( 'Определение истинности высказывания о чётности числа');
write ( 'Введите исходное число>>' );
readln (n);
ans := n mod 2=0;
writeln ( 'Число ', n,' является четным - ', ans)
end.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
Д/З. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, b, с.
«