Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2019, 15:06   #1
Евгений123412344
Новичок
Джуниор
 
Регистрация: 12.05.2019
Сообщений: 2
По умолчанию не выводится ответ на экран паскаль (7 класс)

Здравствуйте, составил программу под задачу :даны два натуральных числа m и n проверить есть ли в записи числа m цифры числа n, но на экран не выводится ответ, помогите найти ошибку.
Код:
var n,m,n1:integer;
f:boolean;
begin
readln (n,m);
f:=false;
While n>0 do
begin
n1:=n;
While n1>0 do
begin
If m mod 10=n1 mod 10 then
f:=true;
n1:=n1 div 10;
end;
n1:=n1 div 10;
end;
if f=true then write('да')
else
writeln ('нет');
end.
______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

Последний раз редактировалось Alex11223; 12.05.2019 в 16:32.
Евгений123412344 вне форума Ответить с цитированием
Старый 12.05.2019, 15:46   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

1. Пользуйся тегом [CODE], который имеется на форме. Выдели код и нажми эту кнопку.
2. Посмотри на этот кусочек кода:
Код:
While n>0 do
begin
   n1:=n;
   While n1>0 do
   begin
      If m mod 10=n1 mod 10 then
         f:=true;
       n1:=n1 div 10;
   end;
   n1:=n1 div 10; {тут ведь должна быть другая переменная}
end;
И ещё:
Код:
if f=true then write('да')
else
   writeln ('нет');
f - описана как переменная логического типа и её проверять на значение нет необходимости. Так что можно писать и так:

Код:
if f then
  write('да')
else
writeln ('нет');
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 12.05.2019, 16:09   #3
Евгений123412344
Новичок
Джуниор
 
Регистрация: 12.05.2019
Сообщений: 2
По умолчанию

Конечно, сорян, я чайник в программировании и тебя не понимаю. Во-первых: где найти этот [CODE] и
Цитата:
Сообщение от ViktorR Посмотреть сообщение
n1:=n1 div 10; {тут ведь должна быть другая переменная}
какая переменная тут должна быть, объясни если не трудно.
Евгений123412344 вне форума Ответить с цитированием
Старый 12.05.2019, 16:56   #4
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
Сообщение от Евгений123412344 Посмотреть сообщение
Во-первых: где найти этот [CODE]
1.jpg
Код:
n1:=n;
while n1>0 do 
....
  n1:=n1 div 10;
end;
// это цикл выделения ЦИФР числа n
а где же выделение ЦИФР числа m ?
m>0 do ??
m:=m div 10;??
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
c++; в лабораторной работе не выводится нормальный ответ cotions Помощь студентам 1 09.04.2014 12:57
Не выводится ответ onclick grandmasterus Помощь студентам 1 23.11.2011 06:00
НЕ ВЫВОДИТСЯ ОТВЕТ Ehha1234 Общие вопросы C/C++ 1 10.06.2010 22:02
C++. в зависимости от проверки элемента на равенство должен выводится правильный ответ phantom4eg Помощь студентам 9 24.05.2010 22:41
не выводится графика на экран Petruha-nsk Общие вопросы C/C++ 3 09.09.2009 17:58