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

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

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

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

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




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Не могу найти ошибку в программе
СообщениеДобавлено: 10 фев 2017, 10:43 
Не в сети
Начинающий
Зарегистрирован:
14 дек 2016, 21: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, 13:19 
Не в сети
Light & Truth
Зарегистрирован:
08 апр 2015, 12:21
Сообщений: 3096
Cпасибо сказано: 88
Спасибо получено:
1042 раз в 966 сообщениях
Очков репутации: 152

Добавить очки репутацииУменьшить очки репутации
Во-первых, перед [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

516

19 ноя 2011, 17:49

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

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

Veinar

10

299

20 апр 2014, 16:45

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

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

Th1e4

1

111

24 дек 2016, 16:00

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

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

ghsrt

6

167

16 апр 2017, 00:14

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

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

Vlasovn109

4

229

15 фев 2017, 22:06

Не могу найти ошибку в ДУ Бернулли

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

AlexOblom

3

139

17 авг 2018, 19:35

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

в форуме MATLAB

Elena1000

4

162

20 фев 2017, 14:11

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

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

djeak11

1

251

22 сен 2016, 23:25

Не могу найти ошибку. Дисперсия получается отрицательная

в форуме Теория вероятностей

Dushescbx

0

87

25 ноя 2017, 20:07

Не могу найти ошибку (противоречие) в своих доказательствах

в форуме Начала анализа и Другие разделы школьной математики

K_A

2

60

14 фев 2019, 19:08


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



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

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


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

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

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

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