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

@crab2000 · Регистрация: 11.12.2009

Author24 — интернет-сервис помощи студентам

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

Pascal

var a,b,d,f:real;
procedure kol(x:real;k:integer);
var z:integer;
begin
k:=0;
while a>0 do
begin
z:=x mod 10;
k:=k+1;
x:=x div 10;
end;
begin
readln(a,b);
kol(a,d);
kol(b,f);

Подскажите что у меня не правильно....

@кот Бегемот · 04.02.2010, 18:54

Ну, начнем с того, что число у тебя то а, то х

Pascal

1
2
3

while a>0 do
begin
z:=x mod 10;

@Law[L]esS · 04.02.2010, 19:04

Pascal

program chisla;
procedure check(a,b:integer);
var
 s,s2: string;
begin
 str(a,s);
 str(b,s2);
 if length(s) = length(s2) then begin
  writeln('oni ravni');
  exit;
 end;
 if length(s) > length(s2) then
  writeln('v a boljshe')
 else
  writeln('v b boljshe');
end;
var
 a,b:integer;
Begin
 readln(a,b);
 check(a,b);
end.

@кот Бегемот · 04.02.2010, 19:16

Law[L]esS
Это ты, конечно, хорошо придумал, но тогда задача называлась бы: в каком слове больше букв,
а автор думает в правильном направлении.

@Law[L]esS · 04.02.2010, 19:20

Сообщение от alexevt

Law[L]esS
Это ты, конечно, хорошо придумал, но тогда задача называлась бы: в каком слове больше букв,
а автор думает в правильном направлении.

Там конкретный вопрос - "в каком из данных двух чисел больше цифр..."
программа делает, то что надо, там не говорится как конкретно нужно сделать

@кот Бегемот · 04.02.2010, 20:37

так говорят, когда не умеют число на цифры разбивать, но преподов это не убеждает, поверь, я знаю, что говорю

@crab2000 · 05.02.2010, 07:46 **[ТС]**

Сообщение от alexevt

Ну, начнем с того, что число у тебя то а, то х

Pascal

1
2
3

while a>0 do
begin
z:=x mod 10;

Да, точно...Что-то я просмотрела...

Добавлено через 3 минуты

Сообщение от crab2000

z:=x mod 10;

ему именна эта строка, для начала, не нравится...

@кот Бегемот · 05.02.2010, 08:53

она вообще не нужна. эта строка выделяет цифру, а нам нужны не цифры, а их количество, мы нигде сами цифры не используем, значит строку можно убрать.

@crab2000 · 05.02.2010, 09:19 **[ТС]**

Сообщение от alexevt

она вообще не нужна. эта строка выделяет цифру, а нам нужны не цифры, а их количество, мы нигде сами цифры не используем, значит строку можно убрать.

Я ее убираю и сразу ошибку в x:=x div 10; выдает...чтобы посмотреть в чем дело меняю real на integer и программа идет, только не правильно работает...

@кот Бегемот · 05.02.2010, 09:25

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

@crab2000 · 05.02.2010, 09:33 **[ТС]**

Сообщение от alexevt

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

Все....вроде работает нормально) Я сделала процедуру без параметров...

@кот Бегемот · 05.02.2010, 09:38

ну, и слава богу

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	04.02.2010, 19:16	4
	Law[L]esS Это ты, конечно, хорошо придумал, но тогда задача называлась бы: в каком слове больше букв, а автор думает в правильном направлении. 0

@Law[L]esS 117 / 114 / 89 Регистрация: 31.10.2009 Сообщений: 191
	04.02.2010, 19:20	5
	Сообщение от alexevt Law[L]esS Это ты, конечно, хорошо придумал, но тогда задача называлась бы: в каком слове больше букв, а автор думает в правильном направлении. Там конкретный вопрос - "в каком из данных двух чисел больше цифр..." программа делает, то что надо, там не говорится как конкретно нужно сделать 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	04.02.2010, 20:37	6
	так говорят, когда не умеют число на цифры разбивать, но преподов это не убеждает, поверь, я знаю, что говорю 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	05.02.2010, 08:53	8
	она вообще не нужна. эта строка выделяет цифру, а нам нужны не цифры, а их количество, мы нигде сами цифры не используем, значит строку можно убрать. 0

@crab2000 1 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 29
	05.02.2010, 09:19 [ТС]	9
	Сообщение от alexevt она вообще не нужна. эта строка выделяет цифру, а нам нужны не цифры, а их количество, мы нигде сами цифры не используем, значит строку можно убрать. Я ее убираю и сразу ошибку в x:=x div 10; выдает...чтобы посмотреть в чем дело меняю real на integer и программа идет, только не правильно работает... 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	05.02.2010, 09:25	10
	real там вообще не будет, все числа целые или длинные целые. У тебя всё работает, только значения не передаются из процедуры в программу. 1

@crab2000 1 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 29
	05.02.2010, 09:33 [ТС]	11
	Сообщение от alexevt real там вообще не будет, все числа целые или длинные целые. У тебя всё работает, только значения не передаются из процедуры в программу. Все....вроде работает нормально) Я сделала процедуру без параметров... 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	05.02.2010, 09:38	12
	ну, и слава богу 0