КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
|
П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
|