Дискуссионный математический форумМатематический форум

Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 4 часа [ Летнее время ]
MathHelpPlanet.com RSS-лента Математического форума

Часовой пояс: UTC + 4 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Не могу найти ошибку в программе
СообщениеДобавлено: 10 фев 2017, 11:43 
Не в сети
Начинающий
Зарегистрирован:
14 дек 2016, 22:01
Сообщений: 2
Cпасибо сказано: 1
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
var a,b,c,d,f:integer;
begin
Writeln('Введите натуральное число:');
readln(a);
b:=10;
while b<=a do begin
b:=b*10;
while (c<=10) and (d<=10) do
c:=a div 10;
d:=a div b;
f:=a mod 10;
if c-d=0 then
writeln('Да');
if f-d=0 then
writeln('Да'); end;
else
begin
Writeln('Нет');
end.


Пишет: Встречено 'else', а ожидался оператор

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Не могу найти ошибку в программе
СообщениеДобавлено: 10 фев 2017, 14:19 
Не в сети
Beautiful Mind
Зарегистрирован:
08 апр 2015, 13:21
Сообщений: 1453
Cпасибо сказано: 37
Спасибо получено:
532 раз в 496 сообщениях
Очков репутации: 76

Добавить очки репутацииУменьшить очки репутации
Во-первых, перед [math]else[/math] не должно стоять точки с запятой (даже если она стоит в предшествующей строке).
Во-вторых, Вы закрыли раньше времени блок [math]while[/math] оператором [math]end[/math] сразу после конструкции [math]if[/math], не успев описать альтернативу [math]else \; writeln("HET");[/math]. Стоящий в конце [math]begin[/math] вообще не нужен.
В итоге должно быть:
................
if f-d=0 then
Writeln('Да')
else
Writeln('Нет');
end;
end.
Возможно, Вы хотели альтернативу условию цикла [math]while[/math], когда он не может выполняться в самый начальный момент. Тогда надо оформить печать "Нет" через соответствующий условный оператор [math]if[/math] сразу после [math]end[/math] блока [math]while[/math]. В этом случае конструкция [math]else[/math] не применяется.

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю michel "Спасибо" сказали:
Turgenev1337
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Найти ошибку в программе, считающей детерминант

в форуме Информатика и Компьютерные науки

Aleksey_Varov

9

403

19 ноя 2011, 18:49

Не могу найти ошибку

в форуме Дискретная математика, Теория множеств и Логика

Th1e4

1

72

24 дек 2016, 17:00

Не могу найти ошибку

в форуме Дифференциальное исчисление

Veinar

10

276

20 апр 2014, 17:45

Не могу найти ошибку в суждениях

в форуме Алгебра

ghsrt

6

133

16 апр 2017, 01:14

Несостыковка. не могу найти ошибку

в форуме Комбинаторика и Теория вероятностей

Vlasovn109

4

123

15 фев 2017, 23:06

Реакция опор( не могу найти ошибку)

в форуме Специальные разделы

djeak11

1

165

23 сен 2016, 00:25

Не могу найти ошибку в модели Simulink

в форуме MATLAB

Elena1000

4

83

20 фев 2017, 15:11

Найти ошибку

в форуме Векторный анализ и Теория поля

zhenya

8

324

25 ноя 2012, 17:37

Помогите найти ошибку

в форуме Дифференциальные и Интегральные уравнения

Danoldjar

2

128

24 сен 2015, 11:54

Найти ошибку в производной.

в форуме Дифференциальное исчисление

Tany22222

1

161

26 дек 2011, 15:18


Часовой пояс: UTC + 4 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


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

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2016 MathHelpPlanet.com. All rights reserved