Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 12.05.2019, 16:06   #1
Евгений123412344
Новичок
 
Регистрация: 12.05.2019
Сообщений: 2
Репутация: 10
По умолчанию не выводится ответ на экран паскаль (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 в 17:32.
Евгений123412344 вне форума   Ответить с цитированием
Старый 12.05.2019, 16:46   #2
ViktorR
Профессионал
 
Регистрация: 23.10.2010
Сообщений: 1,363
Репутация: 644
По умолчанию

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, 17:09   #3
Евгений123412344
Новичок
 
Регистрация: 12.05.2019
Сообщений: 2
Репутация: 10
По умолчанию

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

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

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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


22:01.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.