найти 5 ошибок
1 var
2 s : integer;
3 procedure pr;
4 var a, b, r :integer;
5 begin
6 write('введите стороны прямоугольника a, b: ');
7 readln(a, b);
8 r := a * b;
9 writeln('Площадь прямоугольника = ', r:0:2)
10 end;
11 procedure tr;
12 var a, b, c, r : real;
13 begin
14 write('введите стороны треугольника a, b, c: ');
15 readln(a, b, c);
16 p := (a + b + c) / 2; {полупериметр}
17 r := sqrt(p * (p - a) * (p - b) * (p - c));
18 writeln('Площадь треугольника = ', r:0:2)
19 end;
20 procedure kr;
21 var c, r : real;
22 begin
23 write('введите радиус круга c: ');
24 readln(c);
25 r := PI * sqr(c);
26 writeln('Площадь круга = ', r:0:2)
27 end;
28 repeat
29 writeln('Площадь какой фигуры нужно вычислить: ');
30 writeln('1 - Прямоугольник');
31 writeln('2 - Треугольник');
32 writeln('3 - Круг');
33 writeln('0 - Выход');
34 readln(s);
35 case s
36 1 : pr;
37 2 : tr;
38 3 : kr
39 else if s <> 0 then writeln('некорректный ввод')
40 until s = 0
41 end.
217
479
Ответы на вопрос:
1. Между строчками 27 и 28 вставить строчку с "begin".
2. Между строчками 39 и 40 вставить строчку с "end;".
3. В строке 35 добавить в конец " of".
4. В строке 12 после "r" добавить ", p".
5. В строке 4 заменить "integer" на "real".
Изменения:
Популярно: Информатика
-
Guttkov24.08.2020 03:20
-
1Продавец115.01.2022 05:24
-
livekristinka11.10.2021 19:56
-
alyabub19.10.2022 08:38
-
ilya369444414.05.2021 07:29
-
Егор111ив30.06.2023 23:21
-
alinkaivankiv08.05.2021 19:24
-
Kikookiko26.02.2023 20:31
-
mihanesterov20.12.2021 10:32
-
nano103031.07.2021 16:31