Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих [С. Н. Лукин] (doc) читать постранично, страница - 76

1
9
9
2










М
ы

н
а
ч
и
н
а
е
м
!










4
8






































































Ш
е
с
т
ь
ю

ш
е
с
т
ь




3
6
.


А
р
и
ф
м
е
т
и
к
а
:
3
0



Задание 4 0

Задание 5
VAR a,b : LongInt;
BEGIN
a:= 9000000;
b:= 1000;
WriteLn (a-b);
ReadLn
END.

Задание 6 Паскаль выдает сообщение об ошибке: Constant out of range (см. сообщения об ошибках в части IV).
Задание 7 Паскаль выдает результат 211 или другой неправильный.
Задание 8 1001
Задание 9 -100
Задание 10 15 -10
Задание 11 82
Задание 12
VAR dlina_dvora, dlina_doma,
shirina_dvora, shirina_doma,
pl_dvora, pl_doma,
svobodn_pl_dvora, dlina_zabora :Integer;
BEGIN
dlina_dvora:=50; dlina_doma:=20;
shirina_dvora:=30; shirina_doma:=10;

pl_dvora := dlina_dvora * shirina_dvora;
pl_doma := dlina_doma * shirina_doma;
svobodn_pl_dvora := pl_dvora - pl_doma;
dlina_zabora := 2*(dlina_dvora+shirina_dvora)-(dlina_doma+shirina_doma);

WriteLn (pl_doma,' ', svobodn_pl_dvora,' ', dlina_zabora);
ReadLn
END.

Задание 13
VAR r :Integer; {r-радиус окружности}
l, s :Real; {l-длина окружности, s-площадь круга}
BEGIN
r := 800;
l := 2 * pi * r;
s := pi * r * r;
WriteLn (l :15:5, ' ', s:15:5);
ReadLn
END.

Задание 14
VAR t1, t2, {t1-время на первом отрезке, t2-на втором}
v1, v2, {v1-скорость на первом отрезке, v2-на втором}
s1, s2 :Integer; {s1-первый отрезок пути, s2-второй}
sredn_skorost :Real;
BEGIN
t1:=3; t2:=2;
v1:=80; v2:=90;
s1:=v1*t1; {путь равен скорость умножить на время}
s2:=v2*t2;
sredn_skorost := (s1+s2)/(t1+t2);
WriteLn (sredn_skorost :10:3);
ReadLn
END.

Задание 15
VAR a,b,c, perimetr :Integer; {a,b,c - стороны треугольника}
BEGIN
a:=20;
WriteLn ('Введите длины двух сторон треугольника');
ReadLn(b,c);
perimetr := a+b+c; {периметр - это сумма сторон}
WriteLn ('Периметр треугольника равен ' , perimetr);
ReadLn
END.

Задание 16
VAR t, v, s :Real; {t-время, v-скорость, s-путь}
BEGIN
WriteLn ('Введите путь в метрах и скорость в м/с');
ReadLn(s,v);
t:=s/v;
WriteLn ('Время = ', t :6:3, ' сек');
ReadLn
END.



Задание 17
VAR r1, r2, {r1-радиус орбиты первой планеты, r2-второй}
v1, v2, {v1-скорость первой планеты, v2-второй}
t1, t2 :Real; {t1-продолжительность года первой планеты, t2-второй}
nazvanie1, nazvanie2 :String;
BEGIN
WriteLn('Введите название первой планеты');
ReadLn(nazvanie1);
WriteLn('Введите радиус орбиты и скорость первой планеты');
ReadLn(r1,v1);
WriteLn('Введите название второй планеты');
ReadLn(nazvanie2);
WriteLn('Введите радиус орбиты и скорость второй планеты');
ReadLn(r2,v2);
t1 := 2*pi*r1/v1; {время = длина орбиты/скорость, а длина}
t2 := 2*pi*r2/v2; {орбиты равна два пи * радиус}
WriteLn ('Продолжительность года на планете ', nazvanie1, ' - ', t1: 3:0,
' сут., а на планете ', nazvanie2, ' - ', t2 :3:0, ' сут.');
ReadLn
END.

Задание 18 8
Задание 19 29
Задание 20 66
Задание 21
VAR a1,a2 : Integer;
BEGIN
ReadLn (a1,a2);
if a1>a2 then WriteLn (a1+a2)
else WriteLn (a1*a2);
WriteLn('ЗАДАЧА РЕШЕНА');
ReadLn
END.

Задание 22
VAR a,b,c : Integer;
BEGIN
ReadLn (a,b,c);
if a=a+b then WriteLn ('Неправда')
else WriteLn ('Правда');
ReadLn
END.

Задание 26 Ей нравятся любые черноглазые, но только не те, у кого рост находится в диапазоне от 180 до 184.

Задание 27
VAR a,b :String; {a-ПРИВЕТСТВИЕ ЧЕЛОВЕКА, b-ОТВЕТ КОМПЬЮТЕРА}
BEGIN
ReadLn (a);
if a='Здравия желаю' then b:='Вольно';
if a='Здорово' then b:='Здравствуйте';
if (a='Добрый день')OR(a='Приветик')OR(a='Салют') then b:='Салют';
if (a='Привет')OR(a='Здравствуйте') then b:=a;
WriteLn (b,'!');
ReadLn
END.


Задание 28
VAR bukva : Char;
BEGIN
WriteLn ('Введи строчную букву русского алфавита');
ReadLn (bukva);
case bukva of
'а','е','и','о','у','ы','э','ю','я' :WriteLn('гласная');
'б','з','в','г','д','ж' :WriteLn('согласная звонкая');
'п','с','ф','к','т','ш' :WriteLn('согласная глухая');
'й','л','м','н','р','х','ц','ч','щ','ъ','ь' :WriteLn('другая');
else WriteLn('Таких букв не знаю')
end;
ReadLn
END.

Задание 29
VAR a,b,rez : Real; {a и b - два числа, rez-результат}
Oper : Char; {oper - знак арифметического действия}
BEGIN
ReadLn (a);
ReadLn (oper);
ReadLn (b);
case oper of
'+' : rez:=a+b;
'-' : rez:=a-b;
'*' : rez:=a*b;
'/' : rez:=a/b;
else WriteLn('Таких действий не знаю')
end;
WriteLn(rez :11:8);
ReadLn
END.

Задание 30 Эта программа будет печатать:
Считаем зайцев
10 зайцев
10 зайцев
11 зайцев
13 зайцев
16 зайцев
20 зайцев
………
Операторы n:=n+1 и WriteLn('Посчитали зайцев') не будут выполнены никогда.

Задание 31
LABEL m1; BEGIN m1: Write ('A'); ReadLn; goto m1 END.

Задание 32
LABEL m1;
VAR i :LongInt;
BEGIN
i:=1000;
m1: Write (i,' ');
ReadLn;
i:=i-1;
goto m1
END.

Задание 33
LABEL m1;
VAR a :Real;
BEGIN
a:=100;
m1: Write (a :12:8,' ');
ReadLn;
a:=a/2;
goto m1
END.

Задание 34
LABEL m1,m2;
VAR i :LongInt;
BEGIN
i:=1;
m1: Write (i,' ');
i:=i+1;
if i=1 then goto m2;
ReadLn
END.

Задание 35
LABEL m;
VAR a :Real;
BEGIN
a:=0;
m: WriteLn (a :5:3,' ', a*a :9:6);
a:=a+0.001;
if a480;

Задание 78
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {веpтикальные линии:}
Line(x,0,x,480);
x:=x+10;
until x>640;

Задание 79
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {наклонные линии:}
Line(x,0,x-100,480); {x-100 означает, что нижний конец любой линии}
{будет на 100