Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ 16-ричная система счисления

Автор: Oleg55 28.10.2006 22:18

п-а, которая делает вычитание 16-ричной системы( это цифры 0,1,2,3,4,5,6,7,8,9 и буквы a,b,c,d,e,f).
П-а делает только вычитание цифр, но когда вводишь a,b,c,d,e,f , п-а выдаёт, что чило неправельно введено.
Помогите ошибку найти


Прикрепленные файлы
Прикрепленный файл  VI4ITANE.PAS ( 1.92 килобайт ) Кол-во скачиваний: 270

Автор: volvo 28.10.2006 22:38

Во-первых, у тебя процедура burti меняет исходную строку... Я ввожу 'aa123' - получаю 'II123'. Буква I не допустима, ошибка...

Во-вторых,

for i:=1 to l1 do
a:=ord(sk1[i]); { <-- Здесь }

if not ((a in [48..57]) or (a in [65..70]))
then writeln('Skaitlis ir ievadits nepareizi!'); {4islo napisano nepraveljno}
там, где я показал, в A запишется только ПОСЛЕДНИЙ символ строки, т.к. цикл состоит из одного оператора... Я бы сделал так:

repeat
writeln('Ievadiet mazinaamo:'); {vvedite umenj6aemoe}
readln(sk1);
l1:=length(sk1);
for i:=1 to l1 do begin
a:=ord(upcase(sk1[i])); { <--- Тогда тебе не нужна та самая процедура, все будет работать и без нее }
if not ((a in [48..57]) or (a in [65..70])) then begin
writeln('Skaitlis ir ievadits nepareizi!'); {4islo napisano nepraveljno}
break;
end;
end;

until ((a in [48..57]) or (a in [65..70]));

Автор: Oleg55 29.10.2006 0:47

спасибо за совет
я попробовал, но опять что то не то....


Прикрепленные файлы
Прикрепленный файл  ISPR.PAS ( 1.22 килобайт ) Кол-во скачиваний: 234

Автор: volvo 29.10.2006 1:02

Ты begin/end упорно не желаешь замечать? Что я написал, и что ты сделал? Сравни...

Кстати, с sk2 нужно сделать то же самое...

Автор: Oleg55 29.10.2006 1:12

а почему разность (starpiba) все время ?
второй end п-а не принимает


Прикрепленные файлы
Прикрепленный файл  ISPR.PAS ( 1.25 килобайт ) Кол-во скачиваний: 227
Прикрепленный файл  ISPR.PAS ( 1.25 килобайт ) Кол-во скачиваний: 230

Автор: Oleg55 29.10.2006 3:08

pozalujsta,isprevtje programmu....ja uze vse 4to ugidno poproboval...nu ne tak ja silljen v pascale

Автор: мисс_граффити 29.10.2006 4:43

а что такое, по твоей задумке, sk?

Автор: Oleg55 29.10.2006 19:53

sk - число