XGM Forum
Сайт - Статьи - Проекты - Ресурсы - Блоги

Форуме в режиме ТОЛЬКО ЧТЕНИЕ. Вы можете задать вопросы в Q/A на сайте, либо создать свой проект или ресурс.
Вернуться   XGM Forum > Общение> Трактир
Ник
Пароль
Войти через VK в один клик
Сайт использует только имя.

Закрытая тема
 
yura_1234

offline
Опыт: 1,212
Активность:
Ошибка в алгоритме.
Program p1;
var a,b,c:integer;
begin
a:=1;
b:=0;
if b=4 then writeln('end of program');
do b:=b+1; a:=a*2;
end.
В чём ошибка,заранее спасибо.
Старый 02.11.2011, 19:27
Quantum
Silenced by Пиначет
offline
Опыт: 228
Активность:
Я не шарю в этих кодах, но чисто из логики скажу:
integer b = 0
if b = 4 then
end.
По-моему в установке значения B ошибка, его нужно ставить до цикла, впрочем как и в случае с переменной А
Т.е правильно будет по-моему так(я в этих кодах совсем не шарю):
Program p1;
 var a,b,c:integer;

 a:=1
 b:=0

 begin
 if b=4 then writeln('end of program');
 do b:=b+1; a:=a*2;
 end.
Это в том случае, если begin и end. это начало и конец цикла соответственно.
В другом случае да и в моем оператор (if) никогда не сработает просто.
Если это цикл, то выглядить должно с концом(в том случае, если программа фаталит после срабатывания кода)
Program p1;
 var a,b,c:integer;

 a:=1

 begin
 if b=4 then writeln('end of program');
 do ; a:=a*2;
 end.

 b:=b+1
Тут нет конца цикла(если это цикл), если IF начало оператора а END. его конец.
Старый 02.11.2011, 19:35
reALien

offline
Опыт: 29,211
Активность:
Quantum, ты вот сейчас вынес присвоения из исполняемой части программы, они перестали работать.
Старый 02.11.2011, 19:38
Метаморф
Карающая сила НЯ!
offline
Опыт: 7,528
Активность:
yura_1234, это тематический форум. И хотя здесь существует Трактир, где можно обсуждать и другие темы, массовое создание тем тематики "Я - хреновый ученик" будет считаться флудом.
Старый 02.11.2011, 19:38
yura_1234

offline
Опыт: 1,212
Активность:
Метаморф, помоги ближнему, улучши карму
Старый 02.11.2011, 19:40
Метаморф
Карающая сила НЯ!
offline
Опыт: 7,528
Активность:
Я помогаю тем, кто сделал всё возможное для своего успеха, но так и не смог или сильному, который оступился с тропы и подать ему руку - вывести обратно на путь сильных, а не ленивым детям, которым влом нормально учиться и проще побежать на форум спросить. И не надо блаблабла про то, что ты приложил все усилия.
Старый 02.11.2011, 19:44
Rewenger
The culprit will not die
offline
Опыт: 35,873
Активность:
do b:=b+1; a:=a*2;
Сам по себе "do" не нужен.
Старый 02.11.2011, 19:47
yura_1234

offline
Опыт: 1,212
Активность:
Метаморф, я сам этот алгоритм написал, но не понимаю почему ошибка в предпоследней строке (пишет что ожидался оператор), смотрел в гугле и не нашёл ответа, вот причина и следствие почему я написал здесь.
yura_1234 добавил:
этот алгоритм по этому скрину, всё ли я сделал правельно?
Миниатюры
Кликните на картинку для увеличения
Название:  48842.gif
Просмотров: 9
Размер:  2.7 Кбайт  
Старый 02.11.2011, 19:50
Rewenger
The culprit will not die
offline
Опыт: 35,873
Активность:
while b <> 4 do begin
	b:=b+1; 
	a:=a*2;
end
end.
Старый 02.11.2011, 19:52
yura_1234

offline
Опыт: 1,212
Активность:
Rewenger, извеняюсь за тупой вопрос, но какой результат в итоге получится?
yura_1234 добавил:
MMIceStar, давай не будем придираться к мелочам.
Старый 02.11.2011, 19:59
Rewenger
The culprit will not die
offline
Опыт: 35,873
Активность:
yura_1234, a = 16, b = 4. Тему закрыли и впредь тупых вопросов не задаём, ибо думать головой полезно.
Старый 02.11.2011, 20:01
Закрытая тема

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

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

BB-коды Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход



Часовой пояс GMT +3, время: 02:23.