|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.05.2009, 18:09 | #1 |
Новичок
Джуниор
Регистрация: 15.05.2009
Сообщений: 2
|
Работа с циклами\массивами. Выручайте.
Кто что знает из этих заданий помогите пожалуйста.
|
15.05.2009, 19:49 | #2 |
Пользователь
Регистрация: 17.02.2009
Сообщений: 78
|
Первая:
Код:
Пишу глупости.
|
15.05.2009, 20:46 | #3 |
Новичок
Джуниор
Регистрация: 15.05.2009
Сообщений: 2
|
Если взять предел m=4 n=8 он выдаст ошибку. Я сегодня написал программу мне препод сказал что там в фактериале ошибка:
uses crt; Var n,m,k,f:integer; s:real; Begin clrscr; repeat write('Enter M>0,M='); readln(m); until m>0; repeat write('Enter N>M,N='); readln(n); until n>m; s:=0; f:=1; for k:=n to m do f:=f*k; for k:=m to n do begin s:=s+k*k*ln(f); f:=f*(k+1); end; writeln('S=',s:0:3); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA работа с циклами | melani | Помощь студентам | 2 | 28.03.2009 10:26 |
Работа с массивами | MasterofCDM | Общие вопросы Delphi | 4 | 27.11.2008 23:45 |
Работа с циклами 2. Вопрос | SPQR | Помощь студентам | 5 | 27.10.2007 11:20 |
Работа с циклами. | Надюха | Помощь студентам | 3 | 26.10.2007 09:29 |