Задание 1
Программа для робота | Пояснения для нас с вами |
1. ПОВТОРИ 5 РАЗ ШАГ ВПЕРЕД | Робот идет по коридору до дверей |
2. НАЛЕВО | Робот поворачивается лицом к дверям |
3. ПОВТОРИ 3 РАЗА ШАГ ВПЕРЕД | Робот подходит к стулу |
4. ВОЗЬМИ ПРЕДМЕТ | Робот берет стул |
5. ПОВТОРИ 2 РАЗА НАЛЕВО | Робот поворачивается кругом |
6. ПОВТОРИ 3 РАЗА ШАГ ВПЕРЕД | Робот выходит в коридор |
7. НАПРАВО | Поворачивается направо |
8. ПОВТОРИ 5 РАЗ ШАГ ВПЕРЕД | Идет по коридору до исходного положения |
9. ОПУСТИ ПРЕДМЕТ | Робот ставит стул на новое место |
Задание 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