Составить программу, вычисляющую периметр квадрата по указанному значению его площади.
Написать программу нахождения гипотенузы и площади прямоугольного треугольника по двум данным катетам.
Задача № 4.
Задача № 5.
Составьте программу подсчета размера оплаты за электроэнергию по введенным значениям расхода электроэнергии и тарифа (тариф – стоимость 1 кВтч).
Задача № 6.
Составьте программу, определяющую, сколько времени в минутах затратит студент на дорогу от своего дома до академии, если известна длина этого пути S и средняя скорость движения студента V км/час?
КОНТРОЛЬНЫЕ ЗАДАНИЯ
1. Какая структура программы правильна:
а) program MyProgram; б) program MyFirst;
begin begin
writeln(‘Привет’) x:=y+100
end. end.
2. Какой из перечисленных разделов обязателен в программе:
1) раздел var; 2) раздел const; 3) раздел type; 4) раздел begin .. end; 5) раздел label.
3. Для чего используется слово uses?
а) такого слова нет в языке Pascal;
б) это какой-то пользовательский идентификатор;
в) с его помощью подключают стандартные библиотеки;
г) это стандартная константа, равная 3.14;
д) это логическая операция.
4. В разделе процедур и функций описываются только стандартные процедуры?
а) да, только стандартные; б) нет, только пользовательские;
в) и стандартные, и пользовательские; г) такого раздела вообще быть не может.
5. Найдите ошибки в следующих программах:
а) program rp1; б) program rp2;
begin begin
summa:=6+8 var x:integer;
end. x:=5*3;
write(x)
end.
в) program rp3; г) program rp4;
begin var X,Y,Сумма:integer;
writeln(‘Ввести значение X’); begin
writeln(‘X в квадрате =’, X*X) writeln(‘Ввести X’);
end. readln(X);
var X:integer; writeln(‘Ввести Y’);
readln(Y);
Сумма:=X+Y;
writeln( Сумма)
end.
д) program rp5; е) program rp6;
const d=5; const k=true;
begin var x:real;
d:=sqr(d); begin
writeln(‘d**2=’, d) read(x);
end. writeln(ord(x)=k)
end.
ж) program rp7; з) program rp8;
var a,b,c:integer; var x:real;
begin begin
read(a,b); read(x);
writeln((a+b+c)/2) y:=sqrt(x)+1;
end. writeln(y)
end.
и) program rp9; к) program rp10;
const b=2.5; const 
=3.14159;
var a,b,c:integer; var a,b:integer;
begin begin
read(a,c); read(a);
writeln(a*c>b) d:=odd(*0) and b>0;
end. writeln(d)
end.
6. Какие из приведенных ниже операторов присваивания являются правильными:
а) X:=Y+SIN(SIN(Z)); б) A:=(X<Y) OR B AND (I<>K);
в) X:=I+J-B; г) I:=I+K/J,
если I,J,K: INTEGER; X,Y,Z: REAL; A,B: BOOLEAN?
7. Что получится в результате выполнения операторов:
а) WRITE(‘A’:3,2:1); WRITELN(5*3.2);
б) WRITELN(5<6,5<=6:8); WRITELN(‘КОНЕЦ’);
в) WRITELN(5*3.2:1,’ РЕЗУЛЬТАТ’)?
8. Какими будут значения переменных m и n после выполнения последовательностей операторов:
а) m:=25; б) m:=5;
n:=m+1; n:=6;
m:=m-25 m:=m*m;
n:=n*m
9. Какими будут значения переменных x, y, z после выполнения операторов:
x:= 8+6 mod 4*2;
y:=x div 5*5;
z:=x*5 div 5
10. Какие значения будут выведены в результате выполнения последовательности операторов?
x:=(sin(sqr(1)-1)+2*abs(-2)/cos(2-2);
y:=x*(sqr(2));
write(x,y)
КОНТРОЛЬНЫЕ ВОПРОСЫ
1. Какие процедуры служат в Pascal для выполнения операций ввода-вывода?
2. В чем заключается отличие процедуры чтения READLN от процедуры READ?
3. Для чего в процедурах вывода WRITE и WRITELN определяется ширина поля вывода? Какие обозначения используются в форматах вывода?
4. Что такое оператор? Чем отличаются простые и структурные операторы?
5. Оператор присваивания, назначение и порядок выполнения.
6. В чем особенности пустого оператора? Его назначение.
7. Что представляет собой составной оператор? Как ограничиваются операторы, объединенные в составной оператор?
8. Можно ли вводить с помощью оператора READ значения булевского типа?