ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

x {10,2; 10,8; –10,2; –10,8}.
Какой будет тип результата каждой

из этих функций?

program n_3;
var x: real;
begin
writeln ('Исследование функций round, int, frac');
write ('Введите x>>');
readln (x);
writeln ('Округление: ', round(x));
writeln ('Целая часть: ', int(x));
writeln ('Дробная часть: ', frac(x))
end.

?

c, s: integer;
begin
writeln ('Нахождение суммы цифр трёхзначного числа');
write

('Введите исходное число>>');
readln (x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c ;
writeln ('s= ', s)
end.

Трёхзначное число можно представить в виде следующей суммы: x = a·100 + b·10 + c, где а, b, с - цифры числа.
Программа нахождения суммы цифр вводимого с клавиатуры целого трёхзначного числа:

числовой код.
Символы – это все буквы и значки, которые

есть на клавиатуре. Для ввода в программу символьных переменных необходимо указать для них символьный тип данных char.

Функция chr преобразовывает числовой код символа в сам символ.

Значением строковой величины (тип string) является произвольная последовательность символов, заключенная в апострофы.

W

chr

87

ord

W

%

37

%

4

52

4

S

83

S

var c: string
c:= chr(52)+chr(37)

с

4%

integer; b: string;
begin
writeln ('Код и строка');
write ('Введите исходную

букву>>');
readln (a);
kod:=ord(a);
b:=chr(kod–1)+a+chr(kod+1);
writeln ('Код буквы ', a, '-', kod);
writeln ('Строка: ', b)
end.

Вывод на экран кода буквы, введённой с клавиатуры

Вывод на экран строки из трёх букв.
Каких?

true;
false < true.
Логические значения получаются в результате выполнения операций сравнения

числовых, символьных, строковых и логических выражений.
В Паскале логической переменной можно присваивать результат операции сравнения.

n - целая переменная.
В результате выполнения оператора присваивания

ans:=n mod 2=0
переменной ans будет присвоено значение true при любом чётном n и false в противном случае.

program n_6;
var n: integer; ans: boolean;
begin
writeln ('Определение истинности высказывания о чётности числа');
write ('Введите исходное число>>');
readln (n);
ans:=n mod 2=0;
writeln ('Число ', n,' является четным - ', ans)
end.

с помощью логических функций и (and), или (or), не (not).

('Определение истинности высказывания

о равнобедренном треугольнике');
write ('Введите значения a, b, c>>');
readln (a, b, c);
ans:=(a=b) or (a=c) or (b=c);
writeln ('Треугольник с длинами сторон ', a, ',', b,
',', c, ' является равнобедренным - ', ans)
end.

Логический тип данных

х3 + 2,5х2 – х +1.
При этом:
а) операцию возведения в

степень использовать запрещено;
б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание);
в) в программе может быть использовано не более пяти операторов присваивания.
Подсказка: преобразуйте выражение к следующему виду:
y =((x + 2,5)x –1)x +1.

readln (x);
y:= x + 2.5; // результат действия первых

скобок
y:= y*x - 1; // результат действия вторых скобок
y:= y*x + 1; // результат действия всего выражения
writeln (y);
end.

y =((x + 2,5)x –1)x +1.

Стр.125 В.2 Решение

площадь этого треугольника.

будут вещественными, т.к. стороны треугольника могут быть дробными числами
begin
write ('Введите

стороны a,b,c>>');
readln (a,b,c);
p:= (a + b + c) /2; // находим полупериметр
S:= sqrt (p*(p - a)*(p - b)*(p - c)); // находим площадь
writeln (‘Площадь треугольника равна ’, S)
end.

строку символов, коды которых равны 66, 69, 71, 73, 78.
program

str127_v13;
var a,b,c,d,e: integer; y: string;
begin
write ('Введите значения a,b,c,d,e>>');
readln (a,b,c,d,e);
y:= chr(a) + chr(b) + chr(c) + chr(d) + chr(e);
writeln (y);
end.

20.
Чему будет равно значение логической переменной rez после выполнения операции

присваивания?
а) rez:=(a=10) or (b>10)
б) rez:=(a>5) and (b>5) and (a<20) and (b<30)
в) rez:=( (not(a<15)) or (b>20)

ОТВЕТ: true, true, false

целочисленный, символьный, строковый, логический.
Целые
Логические
abs (x),sqr (x),
sqrt (x), +, -,

*, /

Числовые

ord, char

Символьные

and, or, not

Вещественные