16.12 Язык программирования Паскаль
Проверка домашней работы
uses Robot;
begin
Task('cif3');
while WallFromRight do
begin
if WallFromDown or
WallFromUp then
paint;
right;
end;
if WallFromUp and
WallFromDown then
paint;
end.
Task('cif1')
uses Robot;
beginTask('cif1');
while FreeFromRight do
begin
right;
if WallFromUp then
paint;
end;
if WallFromUp then
paint;
end.
Команды вывода и ввода
https://newyear.mail.ru/?from_sn=true&sn=link
Real— вещественный тип. Служит для хранения дробных чисел (например число 6,2 или 18,9 или -50,7).
Var a,b: real;
INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767.
Для ввода данных используются команды (операторы) Read или Readln. Команда Readln отличается от команды Read тем, что после ввода необходимого количества данных осуществляется переход курсора на следующую строку.
Для вывода данных используются команды (операторы) Write и Writeln. Команда Writeln отличается от команды Write тем, что после вывода необходимого количества данных осуществляется переход курсора на следующую строку.
Выполнить на компьютере
Задание 1
Составьте программу, в которой осуществляется ввод целого числа с клавиатуры и вывод на экран монитора значения этого числа, увеличенного в 5 раз.
program z1;
Var x: integer;
begin
write(‘введите число ‘);
readln(x);
write(‘Если вы умножите число на 5, то получится,’,5*x);
end.
Задание 2
Составьте программу, в которой осуществляется ввод целого числа с клавиатуры и вывод на экран монитора значения этого числа, увеличенного на 10.
Program z2;
Var x: integer;
Begin
write('введите число ');
readln(x);
write('Если вы добавите к числу 10, то получится,',10+x);
End.
Задание 3
Составьте программу, в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы.
Program z3;
uses crt;
Var x,y,z: integer;
Begin
writeln('введите 3 числа ');
readln(x,y,z);
write('Сумма чисел =',x+y+z);
End.
Упр. 1, 2, 3, 4 стр.96