Тема: "Программирование линейных алгоритмов"

Тема: "Программирование линейных алгоритмов"

Задача 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, с.