|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.12.2013, 13:41 | #1 |
Регистрация: 14.12.2013
Сообщений: 5
|
Программа Паскаль
Не могу получить результат,найдите пожалуйста ошибку!
Program a1; var i,n,k :integer; S,SR:real; begin write('n=');read(n); for i:=1 to n do if (y[i]>=1) and (y[i]<=40) begin then S:=S+y[i];k:=k+1;end; SR:=S/k; write ('SR=',SR:6:3); for i:=1 to n do begin if SR>20 then y[i]:=1; write('y[i]=',y[i]:6:2); end;end. |
21.12.2013, 13:51 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Код:
А не наоборот? |
21.12.2013, 14:04 | #3 |
Регистрация: 14.12.2013
Сообщений: 5
|
да точно , теперь пишет "неизвестное имя y"?
|
21.12.2013, 14:18 | #4 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
Правильно пишет. Объявите переменную "y" типа array[1..100] of real (100 взято с потолка). И не забудьте заполнить массив чем-нибудь. А еще неплохо бы инициализировать "k" нулем, и при делении на "k" проверять, что "k" не равен нулю.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
21.12.2013, 14:47 | #5 |
Регистрация: 14.12.2013
Сообщений: 5
|
Спасибо большое , все сделала как вы сказали))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль ABC. Программа на языке Паскаль. | Helen1 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 13.01.2018 21:46 |
Программа Паскаль | Despot777 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 15.09.2013 12:22 |
Паскаль-программа. | Rume | Помощь студентам | 1 | 08.12.2011 00:26 |
Программа, паскаль | Ri4ard_Zlo | Помощь студентам | 3 | 05.12.2011 22:24 |
Программа Паскаль | KILLDAFROG | Помощь студентам | 6 | 03.02.2011 20:45 |