Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Необходимо найти ошибку найти ошибку
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
rusak723 rusak723 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.06.2011
По умолчанию Необходимо найти ошибку найти ошибку - 08.06.2011, 18:25

program zadacha;
Var y,h,k,n,a:integer;
Begin
writeln ('n');
readln (n);
y:=1;
k:=1;
a:=1;
while k<=n do
begin
y:=y*a;
k:=k+1;
a:=-3*a;
end;
writeln (y);
readln;
end.
Ответить с цитированием
  (#2 (permalink)) Старый
rusak723 rusak723 вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.06.2011
По умолчанию 08.06.2011, 18:27

пожалйста помогите сочтемся
Ответить с цитированием
  (#3 (permalink)) Старый
Vadimir Vadimir вне форума
if(rand(1,1) == rand(1,1)
 
Аватар для Vadimir
 
Сообщений: 73
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.12.2010
По умолчанию 08.06.2011, 20:33

А задание-то какое?
Ошибок при компиляции нет.
Только одно предупреждение, что переменная h объявлена, но нигде не используется.
Ответить с цитированием
  (#4 (permalink)) Старый
SeNaT SeNaT вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.06.2011
По умолчанию 08.06.2011, 23:19

сделано всё правельно,тока может их неустроило по 2 причинам
1) цикл может даёться а не ты задаёшь
2) результат этот выводишь? ( хотя поидее в таких примитивных программах именно этот выводят , ищи ошибку в цикле,выше описано)
переменная h сотри,тут она ненужна
Ответить с цитированием
  (#5 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 09.06.2011, 01:11

Просьба все-таки написать условие и желательно на русском языке ) Спасибо.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
rayhan rayhan вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 09.06.2011
По умолчанию 09.06.2011, 10:58

Pascal Код:
Mожет так переделаем
for i:=1 to n do
y:=y* exp((k-1)*ln(-3));
writeln(y);
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как найти ошибку Leks100 Вопросы начинающих программистов 0 07.06.2011 05:19
Как найти ошибку Leks100 C++ Builder 3 05.06.2011 17:43
Как найти ошибку в коде imported_Fred_ Visual Basic 0 12.03.2011 20:51
Не могу найти ошибку. Помогите найти и исправить... 111 Pascal 0 12.01.2011 16:30
VB and WebBrowser как найти ошибку alex198555 Visual Basic 0 12.12.2010 00:08
Помогите найти ошибку Женечка Pascal 0 06.12.2010 19:44
помогите найти ошибку kosmoskir Prolog 18 11.11.2010 19:03
помогите найти ошибку andronz Prolog 4 23.10.2010 23:59
Ado.Net как найти ошибку SidorovaNata SQL 1 18.02.2009 20:30
ПОМОГИТЕ НАЙТИ ОШИБКУ Skorost5 Prolog 2 23.06.2008 22:36
Помогите найти ошибку (SWI) Avchent Prolog 5 04.09.2007 18:56
Как найти ошибку sashar2 С/С++ 22 03.03.2006 13:13



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов