Программирование линейных алгоритмов на языке Паскаль

в алфавит языка Паскаль?

латинские строчные и прописные буквы

знак подчеркивания

Какая последовательность символов может служить именем в языке Паскаль?

величин

Тип вещественных величин

readln

end

program

begin

:=

var

integer

real

writeln

var

begin

:=

real

program

writeln

end

readln

S

КОНЕЦ

program Summa;

end.

Var a,b,S: integer;

begin

S= a + b;

writeln(‘S=‘, S);

readln(a,b);

('c =', c:6:4);
writeln ('s=', s:6:4)
end.

Результат работы программы:

write('Введите r>>');
readln(r);

program n_1;
const pi=3.14;
var r, c, s: real;
begin

r:=5.4;

c :=2*pi*r;
s:=pi*r*r;

Улучшенная программа

Результат работы программы:

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%

b: string;
begin
writeln ('Код и строка');
write ('Введите исходную букву>>');
readln (a);
kod:=ord(a);
b:=chr(kod–1)+a+chr(kod+1);
writeln ('Код буквы ', a, '-', kod);
writeln ('Строка: ', b)
end.

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

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

{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.

?

write('ВВЕДИТЕ КООРДИНАТУ Y1= '); readln(Y1);
write('ВВЕДИТЕ КООРДИНАТУ X2= '); readln(X2);
write('ВВЕДИТЕ КООРДИНАТУ Y2= '); readln(Y2);