Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/34: Рейтинг темы: голосов - 34, средняя оценка - 4.94
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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2018, 10:39
Ответы с готовыми решениями:

Нужно написать 3 программы на Паскале
Номера 5, 7, 8. Могу даже заплатить) https://yadi.sk/d/bD26Mx2D3W98E4

нужно написать программы в паскале по этим задачам

Задача с соревнования. Нужно написать код на Паскале
Какая радость! Родители Пети уехали в командировку на целый год, предоставив шаловливого мальчугана...

Нужно написать программу на паскале, запускающаяся через cmd(exe) которая Дублирует строку, содержащую заданный символ
Помогите срочно! Нужно написать программу на паскале запускающаяся через cmd(exe) которая Дублирует...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
15.05.2018, 10:41 2
Цитата Сообщение от 189405 Посмотреть сообщение
оператора char (вроде). Для программы нужен цикл for do, но это неточно
Зато двойку получишь точно.
0
0 / 0 / 0
Регистрация: 15.05.2018
Сообщений: 3
15.05.2018, 10:43  [ТС] 3
я и не сомневаюсь
0
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
15.05.2018, 11:33 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Может так? Но это вроде и неточно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.
0
0 / 0 / 0
Регистрация: 15.05.2018
Сообщений: 3
15.05.2018, 13:35  [ТС] 5
спасибо большое, все работает)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2018, 13:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Нужно исправить программу на Паскале
var a,b,c,x,F:real; begin writeln('введите a,b,c,x:'); readln(a,b,c,x); if (c<0) and (b<>0)...

нужно написать программу на Паскале, не могу понять
найти произведение максимального среди отрицательных четных элементов на количество из пяти цифер...

Нужно программу на Паскале переделать в программу на С++
Помогите, пожалуйста!!! У меня есть программа на Паскале , а нужно ее переписать, чтобы она была...

Выручите пожалуйста,нужно написать задачку на паскале
Всего 5 задач,буду благодарна если мне напишут хотя бы одну(нужны все 5) 1)Начинающий программист...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.