(gr. III) Zadanie + test

ďťż

devO - Sob Paź 24, 2009 9:54 pm
Ktoś pamięta albo zapisał jakie było nasze zadanie? To z którego potem będziemy pisać test ;p
ja tylko pamiętam że coś z wielomianami =/

ol0lo - Nie Lis 08, 2009 6:42 pm
znalezione w sieci
zamiana liczb dziesiętnych na rzymskie

program list7zad09;

{$APPTYPE CONSOLE}

var
n:longint;
t,s,de,j : integer;
i,v,x,l,c,d,m:string;
begin

write ('Podaj liczbe z zakresu (0;4000) = ');
read (n);

if n<4000 then
if n>0 then
begin
t:=n div 1000;
s:=(n-(t*1000)) div 100;
de:=(n-(t*1000)-(s*100)) div 10;
j:=(n-(t*1000)-(s*100)-(de*10)) div 1;
i:='I';
v:='V';
x:='X';
l:='L';
c:='C';
d:='D';
m:='M';
for n:=1 to t do

begin
write(m)
end;

if s=9 then
begin
write(c,m)
end

else

if s>=5 then
begin write(d);
for n:=1 to s-5 do
write(c);
end
else
if s=4 then
begin
write(c,d)
end
else for n:=1 to s do write(c);

if de=9 then
begin
write(x,c)
end
else

if de>=5 then
begin write(l);
for n:=1 to de-5 do
write(x);
end
else
if de=4 then
begin
write(x,l)
end
else for n:=1 to de do write(x);

if j=9 then
begin
write(i,x)
end
else

if (j>=5) and (j<=8) then
begin write(v);
for n:=1 to j-5 do
write(i);
end
else
if j=4 then
begin
write(i,v)
end
else
for n:=1 to j do write(i)
end

else writeln('Bledne dane ;p');

readln(n);
end.

Darmowy hosting zapewnia PRV.PL