imho.ws |
![]() |
![]() |
![]() |
# 9 | |
::VIP::
Звезда первого сезона Молчун-2004 Регистрация: 24.08.2002
Сообщения: 1 575
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Цитата:
uses crt; const cstr = '0123456789ABCDEF'; type systypes = 2..16; var in_var, out_var: string; in_sys, out_sys: systypes; function str2dec(s: string; sys: integer): integer; var p, i, k: integer; begin p := 0; k := 1; for i := Length(s) downto 1 do begin p := p + k * pred(pos(s[i], cstr)); k := k * sys; end; str2dec := p; end; function dec2str(i: integer; sys: integer): string; var p: string; k: integer; begin p := ''; repeat k := succ(i mod sys); i := i div sys; p := copy(cstr, k, 1) + p; until i = 0; dec2str := p; end; begin clrscr; readln(in_var); readln(in_sys); readln(out_sys); out_var := dec2str(str2dec(in_var, in_sys), out_sys); writeln(out_var); readkey; end.
__________________
Действовать надо тупо и это лучшее доказательство нашей чистоты и силы! |
|
![]() |
![]() |
# 10 |
NewСибирский Монк
Регистрация: 30.06.2002
Сообщения: 3 641
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
а зачем все через десятичные числа в строковом представлении делается? и эта... типа... мне не нравится паскаль
![]()
__________________
Свои носки я стираю Лаской Магия Черного и они надолго сохраняют свой естественный черный цвет! |
![]() |
![]() |
# 13 |
NewСибирский Монк
Регистрация: 30.06.2002
Сообщения: 3 641
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
это PrayeR обещал на си написать, потом приоткрыл завесу секретности, заявив, что напишет с использованием mfc, и что-то все откладывает релиз калькулятора
![]()
__________________
Свои носки я стираю Лаской Магия Черного и они надолго сохраняют свой естественный черный цвет! |
![]() |
![]() |
# 14 |
Faith Saver
Ворчун-2004 Регистрация: 17.12.2002
Адрес: void
Сообщения: 2 583
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
dimonk
я тебе ничего не обещал И НЕ ПИСАЛ ЧТО НАПИШУ ЕГО (делать мне больше не хрен... как прогу из класса tutorial писать)... а написал свой пост потому что есть виндовый... и не зачем выдумывать колесо... на слабо меня не бери... делов куча.. сча пишу монитор дисков для винды... есть проблемы определенные... если хочешь калькулятор - на выходные если у меня не будет клановых матчей.. а MFC... неа.. не люблю...уж лучше API юзать так что отстань пожалуйста... голова и так пухнет.. а еще ентот чертов msdn... вот у Борланда хэлпы это да...все... обедать.. и покурить...
__________________
я всегда буду против |
![]() |
![]() |
# 15 |
NewСибирский Монк
Регистрация: 30.06.2002
Сообщения: 3 641
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
ну да, ну да - я знал, что ты крут. по крайней мере, Ghost нарисовал исходники.
только этот топик во флейм перерос давным-давно... модеры, сделайте что-нибудь!
__________________
Свои носки я стираю Лаской Магия Черного и они надолго сохраняют свой естественный черный цвет! |
![]() |
![]() |
# 17 |
Faith Saver
Ворчун-2004 Регистрация: 17.12.2002
Адрес: void
Сообщения: 2 583
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
// grebany kalkuljator by PrayeR for krutoy Dimonk
#include <iostream.h> int main() { int i=0; cout<<"enter fucking decimial number plz\n"; cin>>i; cout<<"hex vid entogo chisla is --- "<<hex<<i<<"\n"; cout<<"octal vid entogo chisla is --- "<<oct<<i<<"\n"; cin>>i; return (1); } ------------------------------- vot tebe drugie systemy.. a v dvoichnuju eshe v shkole uchili perevodit. tak chto sam vspomnish kak. tolko otstan ot menja seychas pozaluysta... raboty deystvitelno pod zavjazku...
__________________
я всегда буду против |
![]() |