Предмет: Информатика,
автор: lardimm
Only Pascal. Задание:
Мне нужно написать прог-у для вычисления средней оценки исходя из существующих. Есть ТРИ основных действия для вычисления этого:
1) Посчитать кол-во оценок(Пример: 2,3,4 ,т.е кол-во оценок 3)
2) Вычислить их сумму(Исходя из того же примера, т.е 2+3+4 = 9 - это сумма)
3) И наконец сама формула: СУММУ ДЕЛИМ на КОЛ-ВО (т.е 9/3=3)
Оставьте два числа после запятой
Конкретные примеры:
Искусство:4,5,4
-считается сумма чисел =13
-считается кол-во чисел=3
-Рез-ат: 13/3 = 4.33
Аноним:
Выводить-то что?
program durak:var
i, a, b, c, s :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.
i, a, b, c, s :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.
да чцукщзаоьука
после програм и durak, точку с запятой
program durak; var
i, a, b, c, :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.
i, a, b, c, :integer;
begin
readln(a, b, c);
writeln((a + b + c) / 3 );
end.
А если оценок НЕ ТРИ?
program ear;
var n,i,s,k:integer;
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(k);
s:=s+k;
end;
writeln('Среднее арифметическое =',s/n:5:2);
end.
var n,i,s,k:integer;
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(k);
s:=s+k;
end;
writeln('Среднее арифметическое =',s/n:5:2);
end.
Ответы
Автор ответа:
1
program ear;var n,i,s,k:integer;beginwriteln('Введите количество чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(k);s:=s+k;end;writeln('Среднее арифметическое =',s/n:5:2);end.
В ШКОЛАХ, НА СТАНДАРТАХ, СТОИТ АБС
Это к автору вопроса. А Вы, если на Паскале ответ даете, который не на любом паскале допустим, указывайте версию.
В школах что угодно стоит, увы. И уберите капс.
ой милый
я перепутала
я думала, я с автрм))0)
прости <3
Свой пол? Вы то в женском роде пишете (перепуталА), то в мужском (не кинул). ВЫ бы уж определились...
это уже не ко мне вопросы
Так это еще и не Вы пишете...барабашка завелся в клоавиатуре?
Автор ответа:
1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
1. Если нужны промежуточные данные
begin
var a:=ReadlnString.ToIntegers;
var n:=a.Count; Writeln('Количество оценок ',n);
var s:=a.Sum; Writeln('Сумма оценок ',s);
var m:=a.Average; Writeln('Средний балл ',m:0:2)
end.
Пример
4 5 4
Количество оценок 3
Сумма оценок 13
Средний балл 4.33
2. Если промежуточные не нужны
begin
Writeln('Средний балл ',ReadlnString.ToIntegers.Average:0:2)
end.
Пример
4 5 4
Средний балл 4.33
Внимание! Если программа не работает, обновите версию!
1. Если нужны промежуточные данные
begin
var a:=ReadlnString.ToIntegers;
var n:=a.Count; Writeln('Количество оценок ',n);
var s:=a.Sum; Writeln('Сумма оценок ',s);
var m:=a.Average; Writeln('Средний балл ',m:0:2)
end.
Пример
4 5 4
Количество оценок 3
Сумма оценок 13
Средний балл 4.33
2. Если промежуточные не нужны
begin
Writeln('Средний балл ',ReadlnString.ToIntegers.Average:0:2)
end.
Пример
4 5 4
Средний балл 4.33
Понятно, что количество оценок может быть любым. Разделять одним или более пробелом.
и зачем это тут?
???
это решение
Зачем мне Ваше решение под моим ответом?
Это уже не решение, а спам
Похожие вопросы
Предмет: Математика,
автор: emincenko29
Предмет: Математика,
автор: nikmoumia09
Предмет: Литература,
автор: bodnarukboda70
Предмет: Математика,
автор: мирхан1
Предмет: Математика,
автор: РенатМустафин