Действия Результыты
Sqr(2+1) 9
10+Sqr(2+1) 19
1+Abs(5-8) 4
Sqr(2)+Sqrt(35+1) 10
Sqrt(8+Int(41.5)) 7
21div(Round(Pi+1)) 5
Задача 5.
Что напечатает данная программа?
VAR a,b : Integer;
BEGIN
a:=(Sqrt(16)+1)*(20-Sqr(2*2))-11;
b:=11div(a-4);
WriteLn(Sqr(a)+b-1)
End.
Ответ.82
Задача 6.
Написать программу для вычисления площади основания и объёма спичечной коробки, если известны её размеры: высота – 12.41 см., ширина – 8 см., толщина – 5 см.
Программа.
VAR shirina,tol,S : Byte;
visota,V : Real;
BEGIN
visota:=12.41;
shirina:=8;
tol:=5;
S:= shirina* tol;
V:=S*visota;
Write('S=',S,'V=',V:10:3)
END.
Оператор ввода данных ReadLn.
(читается – "рид'лайн; переводится – "читай строку")
Оператор ReadLn приказывает компьютеру остановиться и ждать, когда человек введет с клавиатуры значения переменных, имена которых перечисляются в круглых скобках через запятую.
Пример.
VAR a,b : Integer;
BEGIN
ReadLn(a,b);
WriteLn(a+b)
END.
Эта программа на операторе ReadLn остановиться и будет ждать. Человек должен набрать на клавиатуре первое число (значение переменной a), затем нажать клавишу пробела, затем набрать второе число (значение переменной b) и нажать клавишу Enter. Паскаль воспринимает нажатие пробела как сигнал человека о том, что закончен набор на клавиатуре одного числа и сейчас начнётся набор другого. После набора на клавиатуре последнего числа необходимо нажать клавишу
Enter в знак того, что ввод чисел для данного оператора ReadLn закончен и компьютер может продолжать свою работу.
Замечание.
Оператор ReadLn можно писать и без скобок, просто так: ReadLn. Компьютер остановиться и будет ждать нажатия клавиши Enter. Таким образом создаются паузы в процессе выполнения программы.
Когда программа делает паузу на операторе ReadLn, человек видит перед собой пустой экран монитора. Для улучшения интерфейса пользователя перед оператором ReadLn необходимо записывать оператор WriteLn, который выводит на экран приглашение ввести ту или иную информацию.
Пример.
VAR a,b : Integer;
BEGIN
WriteLn('Введите два целых числа');
ReadLn(a,b);
WriteLn(a+b)
END.
Строковые переменные.
Значением переменной может быть не только число, но и текст. Оператор a:='Привет всем!' записывает в ячейку a строку Привет всем! Оператор WriteLn(a) выведет на экран текст Привет всем!
Описание VAR a:String говорит о том, что переменная а обязана иметь текстовое значение.
(читается – "стринг"; переводится – "строка")
Строковую переменную можно задавать не только оператором присваивания, но и оператором ReadLn.
Пример.
VAR а : String;
BEGIN
WriteLn('Введите какое-нибудь слово');
ReadLn(a);
WriteLn('Вы ввели слово ',а)
END.
Задача7.
Написать программу, которая осуществляла бы такой диалог человека с компьютером:
Компьютер выводит на экран:
Здравствуй, я компьютер, а тебя как зовут?
Человек вводит с клавиатуры:
имя
Компьютер выводит на экран:
Очень приятно, …. Сколько тебе лет?
Человек вводит с клавиатуры:
возраст
Компьютер выводит на экран:
Ого! Целых … лет! Ты уже совсем взрослый!
Программа.
VAR a : String;
b : Byte;
BEGIN
WriteLn('Здравствуй, я компьютер, а тебя как зовут?');
ReadLn(a);
WriteLn('Очень приятно, ',а,'. Сколько тебе лет?');
ReadLn(b);
WriteLn(' Ого! Целых ',b,' лет! Ты уже совсем взрослый!')
END.