 Ошибка в программе., Может кто знает? |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| A&B |
 17.05.2007 19:45
Сообщение
#1
|
|||
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация:  0   |
Программа для задания, прикрепленного в файле, не могу понять, в чем ошибка. Если кто знает, подскажите плиз.
Сообщение отредактировано: мисс_граффити - 17.05.2007 20:14 Прикрепленные файлы 
LAB4.PAS ( 535 байт )
Кол-во скачиваний: 145 |
|||
   |
 
|
|||
  |
Ответов(1 - 1)
| Артемий |
17.05.2007 20:48
Сообщение
#2
|
 Помощник капитана  Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Var j,K,d,N:integer;
res:real;
function proizv(N:integer):real;
var
i,k:integer;
P:real;
begin
P:=0;
k:=1;
for i:=1 to N do
begin
k:=k*i;
P:=P*(N+1/sqrt(k));
proizv:=P;
end;
end;
begin
writeln('N='); read (N);
if N<1 then
begin
writeln('N<1!');
exit;
end;
writeln('step=');
read(K);
if K<1 then
begin
writeln('K<1!');
exit;
end;
writeln('kol-vo=');
read(d);
if d<1 then
begin
writeln('d<1!');
exit;
end;
for j:=1 to n do
begin
res:=proizv(N);
writeln(j,' ',N,' ',res);
N:=N+K;
end;
readln
end.
Вот так вроде компилится! А может объяснишь условие? -------------------- Dum spiro spero!
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.07.2025 18:02 |