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

Сравнение чисел в 16-ричной системе

09.01.2012, 16:33. Просмотров 946. Ответов 4
Метки нет (Все метки)

Программа работает не правильно(например для чисел 12 и 13 или 122 и 123, ответ получается,что числа ровны, так как последний цикл выполняется не верно, точнее выполняется видимо только для 1го числа.Подскажите как исправить!

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
35
36
37
38
39
40
41
42
program dvanact;        
var
s1,s2:string;
cislo,dcislo,p,i:integer;
ch,c:char;
 
begin
writeln('pervoe cislo');
readln(s1);
 for i:=1 to length(s1) do
 begin
 c:=s1[i];
 c:=upcase(c);
 s1[i]:=c;
 end;
 
 
writeln('vtoroe cislo');
read(s2);
 for i:=1 to length(s2) do
 begin
 c:=s2[i];
 c:=upcase(c);
 s2[i]:=c;
 end;
 
if length(s1) > length(s2) then writeln('Vetsi cislo :',s1);
if length(s1) < length(s2) then writeln('Vetsi cislo :',s1);
 
if length(s1)=length(s2) then
   begin
 
   for i:=1 to length(s1) do
       begin
 
        if s1[i]>s2[i] then begin writeln('Naibolshee cislo :',s1); break; end;
        if s1[i]<s2[i] then begin writeln('Naibolshee cislo :',s2); break; end;
        writeln('Cisla odinakovye'); break;
       end;
   end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2012, 16:33
Ответы с готовыми решениями:

Описать функцию, возвращающую строковое представление целого числа N в 16-ричной системе счисления
Описать функцию DecToHex(N) строкого типа, возвращающую строковое представление...

Арифметические операции в q-ричной системе счисления
помогите написаь програамму пожалуйста зараннее спасибо. вот есть код const ...

Сложение или вычитание по выбору пользователя чисел,в двоичной системе и десятичной системе
Пожалуйста помогите люди добрые.Нужно написать программу которая будет...

Переведение чисел из одной системы счисления в другую: из 16-ричной в 2-ичную
Составить програму с использованием алгоритмического язика турбо паскаль для...

Сложение чисел в системе счисления с основанием P
Вводятся два натуральных числа N1 u N2, а также число P (1&lt;P&lt;10). Считаем, что...

4
Puporev
Модератор
55458 / 42568 / 29419
Регистрация: 18.05.2008
Сообщений: 100,709
09.01.2012, 19:02 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
33
34
35
36
37
program dvanact;
uses crt;
var
s1,s2:string;
i:integer;
f:boolean;
begin
writeln('pervoe cislo');
readln(s1);
for i:=1 to length(s1) do
s1[i]:=upcase(s1[i]);
writeln('vtoroe cislo');
read(s2);
for i:=1 to length(s2) do
s2[i]:=upcase(s2[i]);
if length(s1) > length(s2) then writeln('Vetsi cislo :',s1)//ЭТО НЕ ПОНЯЛ
else if length(s1) < length(s2) then writeln('Vetsi cislo :',s1)//И ЭТО
else
 begin
  f:=true;
  i:=1;
  while(i<=length(s1))and f do
  if s1[i]>s2[i] then
   begin
    writeln('Naibolshee cislo :',s1);
    f:=false
   end
  else if s1[i]<s2[i] then
   begin
    writeln('Naibolshee cislo :',s2);
    f:=false
   end
  else i:=i+1;
  if f then writeln('Cisla odinakovye');
 end;
readln;
end.
1
InterPaul
0 / 0 / 0
Регистрация: 08.01.2012
Сообщений: 14
09.01.2012, 19:16  [ТС] 3
Puporev, Это условие для того,чтобы сразу выдавала ответ для чисел с разным количеством символов...где больше - то число и большее. Например 999 и 1234 смысла сравнивать по символам нет, так как второе явно больше!
0
Puporev
Модератор
55458 / 42568 / 29419
Регистрация: 18.05.2008
Сообщений: 100,709
09.01.2012, 19:23 4
Да это я понял, не понял это Vetsi cislo и почему оба раза s1.
0
InterPaul
0 / 0 / 0
Регистрация: 08.01.2012
Сообщений: 14
09.01.2012, 19:28  [ТС] 5
Все работает правильно,кроме условия длины числа. Например для ввода 9 и 21 он выдает что число 9 больше!

Добавлено через 1 минуту
Ой, спасибо за поправку.Там s2 должно было быть. Поэтому он всегда и выдает при разном количестве цифр,что 1 число больше!
0
09.01.2012, 19:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2012, 19:28

модуль для чисел в Р-ичной системе
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций...

Сложение двух чисел в 6-ой системе счисления
Добрый день! Не могли бы вы мне помочь написать функцию, выполняющую сложение...

Сравнение чисел
С клавы вводится два целых числа a и b(оба от -1 000 000 да 1 000...


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

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

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