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

Математический форум 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 
Не в сети
Light & Truth
Зарегистрирован:
08 апр 2015, 13:21
Сообщений: 1988
Cпасибо сказано: 49
Спасибо получено:
672 раз в 625 сообщениях
Очков репутации: 91

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

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

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

Veinar

10

284

20 апр 2014, 17:45

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

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

Th1e4

1

92

24 дек 2016, 17:00

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

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

Vlasovn109

4

170

15 фев 2017, 23:06

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

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

ghsrt

6

147

16 апр 2017, 01:14

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

в форуме MATLAB

Elena1000

4

120

20 фев 2017, 15:11

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

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

djeak11

1

202

23 сен 2016, 00:25

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

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

Dushescbx

0

48

25 ноя 2017, 21:07

Найти ошибку

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

NERFSD

2

84

08 ноя 2017, 20:49

Найти ошибку

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

zhenya

8

349

25 ноя 2012, 17:37

Бейсик, найти ошибку

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

liboda

1

301

13 дек 2012, 22:24


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



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

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


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

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

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

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