П5. Решения заданий

Задание 1

Задание 2

Задание 3

Задание 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< b+c then WriteLn ('Подходит. ')

else WriteLn ('Не подходит, слишком длинен. ');

ReadLn

END.

Задание 23

VAR golov, glaz, N: Integer;

BEGIN

WriteLn ('Сколько лет дракону? ');

ReadLn (N);

if N< 100 then golov: = 3*N

else golov: = 300 + 2*(N-100);

glaz: = 2*golov;

WriteLn ('У дракона ', golov, ' голов и ', glaz, ' глаз');

ReadLn

END.

Задание 24

VAR imya: String;

Vozrast: Integer;

BEGIN

WriteLn ('Здравствуй, я компьютер, а тебя как зовут? ');

ReadLn (imya);

WriteLn ('Очень приятно, ', imya, '. Сколько тебе лет? ');

ReadLn (vozrast);

WriteLn ('Ого! Целых ', vozrast, ' лет! Ты уже совсем взрослый! ');

if vozrast< =17 then begin

WriteLn ('В какой школе ты учишься? ');

ReadLn; {Во время паузы вы можете вводить любой текст,

все равно он программе не понадобится}

WriteLn ('Неплохая школа! ')

End