KMA 
Долгожитель
|
     
cav, постарайся не использовать i в квадратных ковычках, заменяй из {}, т. к. это тек, курсива. Сам, наверное понял.
Тебе не зачем во втором цикле ставить n:=n+1.
Короче, решение такое (начиная после ввода)
for i:=1 to 7 do
s:=s+c{i}; {считаем сумму всех элементов массива}
m:=s/7;
writeLn ('sred arifm: ', m: 2: 2);
kol:=0;
for i:=1 to 7 do
if c{i}>=m
then kol:=kol+1;
writeLn ('kol-vo chisel > sredne arifm: ', kol);
Вот и все, тут ошибка то была только в последнем цикле, когда ты присваивал значение большего элемента переменной, где у тебя храниться среднее арифметическое.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 28 сен. 2006 22:42 | IP
|
|
cav
Удален
|
KMA Большое тебе спасибо. насчет кавічек буду знать
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 29 сен. 2006 8:50 | IP
|
|
Avikagal
Удален
|
контрольная в институте, а я далёкий, help:
Составить программу вычисления функции (циклический вычислительный процесс с разветвлением)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 1 окт. 2006 1:05 | IP
|
|
Avikagal
Удален
|
Почему в ВР7 я не могу напииать по русски, ппишет иероглифы или латиницей?
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 1 окт. 2006 1:09 | IP
|
|
KMA
Долгожитель
|
Потому что нужно устанавливать спец ключ, называется keyrus. Или же, самый простой способ, поменять в языковой панели основной язык -- русский. (мне помогло)
Далее, ты хоть условие задачи напиши, а то это из области "Пойди туда, не знаю куда, сделай то, не знаю что"
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 1 окт. 2006 1:12 | IP
|
|
Avikagal
Удален
|
Подскажите где взять keyrus. Я не нашёл или плохо искал. А где поменять я не понял. Спасибо KMA за ответ. Задачу кину вечером.
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 1 окт. 2006 12:20 | IP
|
|
coolusa
Удален
|
Даны действительное число а.натуральное n.Вычислите a*(a+1)*...*(a+n-1)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 2 окт. 2006 19:44 | IP
|
|
coolusa
Удален
|
решите пожалкуйста срочно)))вообще я хорошо разбираюсь в программировании,но эта задача поставила меня в тупик(((((
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 2 окт. 2006 19:46 | IP
|
|
amigo
Начинающий
|
Program Work;
Uses crt;
VAR
a,p:real;
n,i:integer;
BEGIN
clrscr;
write('Введите a=',a);
readln(a);
write('Введите n=',n);
readln(n);
p:=1;
for i:=0 to n-1 do P:=P*(a+i);
write('Ответ P=,p);
readln;
END.
(Сообщение отредактировал amigo 2 окт. 2006 20:06)
(Сообщение отредактировал amigo 2 окт. 2006 20:08)
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 2 окт. 2006 20:03 | IP
|
|
Avikagal
Удален
|
киньте мне файл keyrus.com
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 2 окт. 2006 22:28 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
