Вычислить y=sinx-cosx+sin2x-cos2x+sin3x-cos3x++sinnx-cosnx, где n=25, значение x задать вводом паскаль
Ответы на вопрос:
ошибок несколько:
1. нету ввода a,b,c (команда read)
2. в каждом if после then ты делаешь три присваивания, их надо обернуть в begin - end
3. не понятна логика if-then-else. например, после if b> c then у тебя два else. используй отступы, чтоб было нагляднее, например:
if b> c then
begin
min: = c;
avg: = b;
max: = a;
end
else
begin
min : = b;
avg : = c;
max : = a
end
ещё, чтобы сделать все эти проверки нагляднее, можешь попробовать использовать такую конструкцию:
if (a> b) and (b> c) then
begin
min: = c;
avg: = b;
max: = a;
end
тогда тебе не будут нужны else и ты в них не запутаешься.
4. переменные min, avg, max должны быть описаны в секции var
5. в строке writeln ('минимальное число= ',min, среднее число= ', avg 'максимальное число= ', max) пропущена кавычка перед словом "среднее" и запятая после "avg"
6. нужна точка с запятой в конце строки writeln
*****************************
у меня на паскаль авс работает:
program a3;
var
a, b, c, min, avg, max: integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a> b) and (b> c) then begin min: =c; avg: =b; max: =a; end;
if (a> c) and (c> b) then begin min: =b; avg: =c; max: =a; end;
if (b> a) and (a> c) then begin min: =c; avg: =a; max: =b; end;
if (b> c) and (c> a) then begin min: =a; avg: =c; max: =b; end;
if (c> a) and (a> b) then begin min: =b; avg: =a; max: =c; end;
if (c> b) and (b> a) then begin min: =a; avg: =b; max: =c; end;
writeln ('минимальное число= ',min, ' среднее число= ', avg, ' максимальное число= ', max);
end.
Популярно: Информатика
-
kamazhangabylooyfdx115.10.2020 03:51
-
Bong14423.09.2022 03:38
-
Novaya2206.09.2020 05:18
-
RU201715.03.2023 18:14
-
антон77611.02.2020 16:59
-
PANDAnumber29.05.2023 12:11
-
Pro100Brotanich14.03.2023 16:45
-
den2424denoztwre07.02.2021 11:10
-
Дашенька136506.04.2022 01:21
-
нрпаллмаегли10.07.2021 16:55