Помогите, пожалуйста, исправить программку на Паскале

павля · 17.03.2011, 22:11

задание:
ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления. (только с помощью линейного алгоритма).

подскажите что следует изменить в этой программке...?..:

program _;
uses crt;
var
x,a,b,c,d,k: integer
begin
clrsgr;
writeln ('введите число в восьмеричной системе x');
readln (x);
a:=x div 100;
k:=x-a*100;
b:=k div 10;
c:=x mod 10;
writeln (a);
writeln (b);
writeln (c);
d:=a*64+b*8+c
writeln ('d=',d);
readln;
end.

заранее благодарна

...

павля · 17.03.2011, 22:14

просто там..по идеи..при вводе числа, например 223, должно вывести как результат 19..а выводит 147

((

AlexZir · 18.03.2011, 06:44

А с чего вы взяли, что программа работает неправильно?
Подсчитаем: 2238=2*8^2+2*8^1+3*8^0=2*64+2*8+3=128+16+3=14710
Что здесь вы видите неправильного?

1910=238

Кстати, вот более короткая программа с меньшим числом переменных:

Код:

uses crt;
var a,b,c,d,x:integer;
begin
clrscr;
writeln('Enter Oct-value');
readln(x);
a:=x div 100;
x:=x mod 100;
b:=x div 10;
c:=x mod 10;
writeln(a:4,b:4,c:4);
d:=a*64+b*8+c;
writeln('d=',d);
readln
end.

Можно вообще реализовать в виде одной команды, будет всего 2 переменных в программе.

павля · 18.03.2011, 10:29

гг

....спасибочки дорогусий...хм...я прост тольк освоила перевод с восьмеричной

вот блин..х

17.03.2011, 22:11	#1 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	Помогите, пожалуйста, исправить программку на Паскале задание: ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления. (только с помощью линейного алгоритма). подскажите что следует изменить в этой программке...?..: program _; uses crt; var x,a,b,c,d,k: integer begin clrsgr; writeln ('введите число в восьмеричной системе x'); readln (x); a:=x div 100; k:=x-a100; b:=k div 10; c:=x mod 10; writeln (a); writeln (b); writeln (c); d:=a64+b*8+c writeln ('d=',d); readln; end. заранее благодарна...

17.03.2011, 22:14	#2 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	просто там..по идеи..при вводе числа, например 223, должно вывести как результат 19..а выводит 147((

18.03.2011, 06:44	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	А с чего вы взяли, что программа работает неправильно? Подсчитаем: 2238=28^2+28^1+38^0=264+28+3=128+16+3=14710 Что здесь вы видите неправильного? 1910=238 Кстати, вот более короткая программа с меньшим числом переменных: Код: uses crt; var a,b,c,d,x:integer; begin clrscr; writeln('Enter Oct-value'); readln(x); a:=x div 100; x:=x mod 100; b:=x div 10; c:=x mod 10; writeln(a:4,b:4,c:4); d:=a64+b*8+c; writeln('d=',d); readln end. Можно вообще реализовать в виде одной команды, будет всего 2 переменных в программе. __________________ Убить всех человеков!

18.03.2011, 10:29	#4 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	гг....спасибочки дорогусий...хм...я прост тольк освоила перевод с восьмеричной вот блин..х

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070