Pascal / Delphi Процедура позволяет определить входит ли цифра B в число Х - 9 Июня 2012 - Сайт заготовки для Дельфи&Pascal

Меню сайта

Поиск по сайту

Контакты

как написать программу заказ работы на Pascal Заказ работы на Delphi пишите вопросы по Delphi / Pascal ICQ 368-254-335

on-line Консультация Pascal/Delphi

Вконтакте

МТС Уфа +7 917 74 25 326 мой сайт //netsoftware.ucoz.ru

Наш опрос

Добавить

Календарь

Полезные ссылки

История интернета

Интересные факты

Переводчик от google

Официальный блог

Сообщество uCoz

FAQ по системе

Инструкции для uCoz

Теги

Автор динамически создаваемые Примеры работ публикатор Alpha. draw Обрисовка n-угольника рисуем квадрат рисуем треугольник рисуем шестиугольник Dlina Ugol векторное изображение Угол наклона Pascal ABC PascalABC. Firebird sql программа выполнения скриптов по ра delphi пересечение Одномерный массив Формирование массива в заданных диа Целочисленные массивы Элементы кратные числу Горячие клавиши в Delphi получаем IP адрес Получение слова из строки Процедура выравнивания регистров Спискок знаков препинания Преобразовать строку пример работы со строками cosh sinh tanh delphi заготовки delphi примеры работ Proxy прокси Combobox myInputbox Pascal Mod pascal mod операторы pascalб стандартные опера CSV CSV файл StringGrid TStringGrid задачи матрицы

Статистика

Архив записей

Число on-line

Поддержка сайта

Хотите помочь сайту (работой) пишите в аську или контакт

50 руб.

yandex 410011013695809
qiwi 9177425326
R132677785853

Главная » » Pascal / Delphi Процедура позволяет определить входит ли цифра B в число Х

14:21

Pascal / Delphi Процедура позволяет определить входит ли цифра B в число Х

Процедура позволяет определить входит ли цифра B в число Х

Помогите решить задачку

Определить, есть ли среди цифр заданного положительного четырехзначного числа цифра "0"

Function GetIntInInteger(x:Integer;B:integer):boolean;
var
    g:boolean;
begin
x:=10234;
g:=false;
while x>0 do begin
     if (x mod 10)=B then g:=true;
     x:=x div 10;
end;
result:=g;
end;

вариант через String 

var x:integer;
begin 
 if pos('0',inttostr(x))>0 then // есть 
else // нет 
end;

в стиле Borland Delphi

Function GetIntInInteger(x:Integer;B:integer):boolean;
var
    g:boolean;
begin
x:=10234;
g:=false;
while x>0 do begin
     if (x mod 10)=B then g:=true;
     x:=x div 10;
end;
result:=g;
end;
function GetZeroINNumber(x:Integer):boolean;
begin
result:=GetIntInInteger(x,0);
end;

пример использования

begin
if GetZeroINNumber(1001) then Writeln('Yes')
else Writeln('not')

end.

1
2
3
4
5

Просмотров: 2250 | Добавил: NetSoftWare | Рейтинг: 0.0/0

Всего комментариев: 0