Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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. Или же, самый простой способ, поменять в языковой панели основной язык -- русский. (мне помогло)

Далее, ты хоть условие задачи напиши, а то это из области "Пойди туда, не знаю куда, сделай то, не знаю что"

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com