Нужно написать программу в паскале

@189405 · Регистрация: 15.05.2018

Нужно создать программу в паскале, которая будет находить среднее арифметическое оценки. То есть, например (4+5+3)/3, НО! пользователь не модет вводить числа до 0 и 0, и больше 5 (т.к таких оценок нет), и он может вводить люьое количество цифр(оценок), не как у меня в примерн. Также он должен написать свою фамилию и имя с помощью оператора char (вроде). Для программы нужен цикл for do, но это неточно

@Puporev · 15.05.2018, 10:41

Сообщение от 189405

оператора char (вроде). Для программы нужен цикл for do, но это неточно

Зато двойку получишь точно.

@189405 · 15.05.2018, 10:43 **[ТС]**

я и не сомневаюсь

@Puporev · 15.05.2018, 11:33

Может так? Но это вроде и неточно.

Pascal

var s:string;
    n,i,o:integer;
    sr:real;
begin
writeln('Введите вашу фамилию');
readln(s);
repeat
write('Введите количество оценок n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' оценок от 1 до 5');
sr:=0;
for i:=1 to n do
 begin
  repeat
  write('Оценка ',i,'=');
  readln(o);
  until o in [1..5];
  sr:=sr+o;
 end;
write('Средняя оценка=',sr/n:0:1)
end.

@189405 · 15.05.2018, 13:35 **[ТС]**

спасибо большое, все работает)

@189405 0 / 0 / 0 Регистрация: 15.05.2018 Сообщений: 3
		1
	Нужно написать программу в паскале 15.05.2018, 10:39. Просмотров 7017. Ответов 4 Метки нет (Все метки) Нужно создать программу в паскале, которая будет находить среднее арифметическое оценки. То есть, например (4+5+3)/3, НО! пользователь не модет вводить числа до 0 и 0, и больше 5 (т.к таких оценок нет), и он может вводить люьое количество цифр(оценок), не как у меня в примерн. Также он должен написать свою фамилию и имя с помощью оператора char (вроде). Для программы нужен цикл for do, но это неточно 0

@Puporev Модератор 63223 / 46978 / 32379 Регистрация: 18.05.2008 Сообщений: 113,863
	15.05.2018, 10:41	2
	Сообщение от 189405 оператора char (вроде). Для программы нужен цикл for do, но это неточно Зато двойку получишь точно. 0

@189405 0 / 0 / 0 Регистрация: 15.05.2018 Сообщений: 3
	15.05.2018, 10:43 [ТС]	3
	я и не сомневаюсь 0

@189405 0 / 0 / 0 Регистрация: 15.05.2018 Сообщений: 3
	15.05.2018, 13:35 [ТС]	5
	спасибо большое, все работает) 0

Опции темы

Нужно написать программу в паскале

Решение