Turbo Pascal

Faflun

{Zadanie Nr 7.
Napisz program, kt˘ry zamienia liczb© rzymskĄ na liczb© arabskĄ.}
Program Rzymskie_na_Arabskie;
uses crt;

const {Dzi©ki tabeli moľemy w prosty spos˘b przetlumaczy† wyraľenie}
Tabela: array[1..13] of record

AR: word;
RZ: string[2];

end = ((AR: 1000; RZ: 'M'),
(AR: 900; RZ: 'CM'),
(AR: 500; RZ: 'D'),
(AR: 400; RZ: 'CD'),
(AR: 100; RZ: 'C'),
(AR: 90; RZ: 'XC'),
(AR: 50; RZ: 'L'),
(AR: 40; RZ: 'XL'),
(AR: 10; RZ: 'X'),
(AR: 9; RZ: 'IX'),
(AR: 5; RZ: 'V'),
(AR: 4; RZ: 'IV'),
(AR: 1; RZ: 'I'));

var Rzymska: string;
Arabska: longint;
Num: byte;
Sym: string[2];
Val: word;
begin
{G˘wna p©tla}
repeat begin {podajemy i wczytujemy liczb© RzymskĄ}
TextBackGround(BLUE); clrscr;
TextColor(YELLOW);
Write('Podaj liczbe RzymskĄ: ');
Readln(Rzymska);

{tumaczene}
Arabska := 0;
Num:= 1;
repeat
Sym := Tabela[Num].RZ;
Val := Tabela[Num].AR;
{program por˘wnuje liczba rzymska i por˘wnuje z elementami tabeli}
while Copy(Rzymska, 1, Length(Sym)) = Sym do
{znalezlismy pasujacy element - dodajemy odpowiednia
wartosc do liczby arabskiej i skracamy liczbe rzymska}
begin

Inc(Arabska, Val);
Delete(Rzymska, 1, Length(Sym));

end;

Inc(Num);
until Rzymska = '';
{koniec liczby rzymskiej - koniec tlumaczenia}
{wyswietlamy liczb© ArabskĄ}
TextColor(GREEN);
WriteLn('Arabska licza wynosi: ', Arabska);

TextColor(Yellow+blink);
WriteLn('Nacisnij dowolny klawisz aby kontynuowa†, lub ESC aby zakoäczy† !!!');

repeat until keypressed;
{Program sprawdza czy wcisni©to ESC. Jesli tak to koäczy
dziaanie jesli dowolny klawisz wraca do poczĄtku}
end;
until readkey=Chr(27);

end.

Zas prosba jest nastepujaca : Bardzo prosze o napisanie komentarza .byc moze wyda wam sie to banalnie proste .z góry dziekuje.

Kamila

				fora.pl - załóż własne forum dyskusyjne za darmo Powered by phpBB © 2001, 2002 phpBB Group Avalanche style by What Is Real © 2004