Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
team
0 / 0 / 0
Регистрация: 16.09.2016
Сообщений: 1
1

Определить, есть ли в числе рядом стоящие одинаковые цифры

29.12.2010, 22:09. Просмотров 722. Ответов 3
Метки нет (Все метки)

Уважаемые программисты,нуждаюсь в помощи....в общем задание выглядит так....


Вашему варианту. Решаются две задачи. Обе задачи реализовать в одной программе с применением интерфейса «МЕНЮ» и обязательным использованием для решения функций. Первая задача реализуется на основе оператора "while", а вторая – оператора "for". Комментарии в программе обязательны.

Задача #1.
В диалоговом режиме задается целое длинное число A.
1. Определить, есть ли в числе рядом стоящие одинаковые цифры.

Задача #2.
В диалоговом режиме вводится некоторое число N (В диапазоне от 1 до 2000). Программа должна вывести числа, определенные заданием в виде нескольких колонок, выровненных по правому краю. Все числа от 1 до N натуральные.

1. Распечатать все числа от 1 до N, у которых остатки от деления на число Z не превышают числа M.




помогите пожалуйста....мне кровь из носу нужно всё успеть сделать к утру.....заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 22:09
Ответы с готовыми решениями:

Определить, есть ли в числе одинаковые цифры
Задание такое: в массиве найти сумму всех нечетных чисел и вывести это число, после этого проверить...

Найти n! и проверить, встречаются ли в записи этого числа две рядом стоящие одинаковые цифры
Найти n! и проверить, встречаются ли в записи этого числа две рядом стоящие одинаковые цифры

Есть ли в числе 2 одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Пример:...

Есть ли одинаковые цифры во введенном числе
проверить есть ли одинаковые цифры в введенном числе, нужно составить с помощью 1)цикла с...

Определить встречаются ли одинаковые цифры в числе.
С клавиатуры вводится четырёхзначное число, надо определить есть ли в нём одинаковые числа, не...

3
Merlin666
98 / 98 / 29
Регистрация: 26.12.2010
Сообщений: 220
29.12.2010, 22:23 2
Первая задача:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{
Г‡Г*Г¤Г*Г·Г* #1.
Г‚ äèГ*ëîãîâîì ðåæèìå Г§Г*Г¤Г*ГҐГІГ±Гї öåëîå äëèГ*Г*îå ÷èñëî A.
1.  Îïðåäåëèòü, ГҐГ±ГІГј ëè Гў ÷èñëå ðÿäîì ñòîÿùèå îäèГ*Г*êîâûå öèôðû.
}
program Numbers;
uses crt;
var str: string;
 
function IsExist(s: string): boolean;
var i: integer;
    flag: boolean;
begin
 i:=1;
 flag:=false;
 
 while (i<=length(str)) do
 begin
  if (str[i]=str[i+1]) then flag:=true;
  inc(i);
 end;
 
 IsExist:=flag;
end;
    
Begin
 write('Enter the string: ');
 readln(str);
 
 if (IsExist(str)) then writeln('Yes')
 else writeln('No');
End.
1
team
0 / 0 / 0
Регистрация: 16.09.2016
Сообщений: 1
29.12.2010, 22:30 3
спасибо!!!
0
Merlin666
98 / 98 / 29
Регистрация: 26.12.2010
Сообщений: 220
29.12.2010, 23:00 4
Вторая задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{
Распечатать все числа от 1 до N, у которых остатки от деления на
число Z не превышают числа M
}
program Ost;
uses crt;
var n, z, m: integer;
 
procedure Print(n,z,m: integer);
var i, col: integer;
begin
 col:=1;
 writeln('Result: ');
 for i:=1 to n do
 begin
  if (i>=z) then
  begin
   if ((i mod z)<=m) then
   begin
    if (col mod 2<>0) then write(i:5)
    else writeln(i:5);
    inc(col);
   end;
  end;
 end;
end;
 
Begin
 write('Enter n, z and m: ');
 read(n); read(z); readln(m);
 
 Print(n,z,m);
 
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2010, 23:00

Определить, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом
Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых...

Определить, есть ли в массиве элементы с одинаковыми значениями, не обязательно стоящие рядом
Задача:Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми...

В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе
В данном целом числе N, заменить нулями все цифры стоящие на нечетных позициях в числе.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru