Урок № 5

Напишем программу, которая создает четыре ячейки памяти, в первую помещает 5, во вторую 8, в третью 13 , а в четвертую их сумму, и затем каждый раз с новой строки выводит их на экран.

Var x,y,z,n: Integer;

Begin

   x:=5;

   y:=8;

   z:=13;

   n:=x+y+z;

   Writeln(x);

   Writeln(y);

   Writeln(z);

   Write(n);

End.

После запуска программы на выполнение на экране появится (рис. 5.1):

Как правило, при работе программ вы видите на экране не только “голые” цифры, но и пояснения(сообщения).

Переделаем программу, чтобы после запуска программы экран имел вид указ на рис. 5.2 :

 Оказывается, в процедуре Write в скобках можно чередовать запись сообщений с записью переменных через запятую.

Var x,y,z,n: Integer;

Begin

   x:=5;

   y:=8;

   z:=13;

   n:=x+y+z;

   Writeln(‘Первая ячейка=’,x);{сообщение –“Первая ячейка” и переменная x отделяются запятой}

   Writeln(‘Вторая ячейка=’,y);

   Writeln(‘Третья ячейка=’,z,’ Сумма=’,n);

End.

Решим еще одну задачу: Создать 3 ячейки памяти в первую поместить 10, во вторую -15 , а в третью - их произведение.

На экран вывести следующую строку, причем, в процедуре Write не должно быть чисел:

X=10, Y=15, Z=150

Попробуйте самостоятельно написать текст этой программы, а затем сверить с текстом, расположенным ниже. В качестве подсказки все сообщения выделены жирным шрифтом.

Var x,y,z: Integer;

Begin

   X:=10;

   Y:=15;

   Z:=x*y;

Write(‘x=’,x,’,y=’,y,’,z=’,z);

End.

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

 

Задания:

1. Написать программу, создающую три ячейки памяти, помещающую в первую ячейку число 12, во вторую - число 25, а в третью - число 4, в пятую - произведение этих чисел и выводящую на экран:  

Первое число=12  Второе число=25

Третье число=4     Произведение=1200

 

 2. Поместите весь этот текст в центр экрана