Mam prośbę. Proszę o napisanie programu w Turbo Pascalu. Najlepiej ktoś kto sie na tym zna. Jest to słowny zapis danej liczby. Może być w języku polskim lub angielskim. Daje dużo punktów.
Recommend Questions
mkaminski185
October 2020 | 0 Replies
1. Jakie zagadnienia (trzy elementy) obejmuje technologia informacyjna?2. Jakie elementy znajdują się na płycie głównej komputera – opisz krótko ich funkcje:• procesor:• pamięć RAM:• chipset:• karty rozszerzeń lub kontrolery zintegrowane z płytą główną:• pamięć ROM:3. Jakie urządzenia, obok płyty głównej, mogą znajdować się wewnątrz obudowy komputera?4. Wymień urządzenia zewnętrzne (peryferyjne).5. Co to jest system operacyjny i jak nazywają się najpopularniejsze systemy operacyjne?6. Opisz system plików w systemie Windows.7. Jakie to pliki (formaty plików):• *.exe:• *.pdf:• *.txt:• *.doc:• *.xls:• *.jpg:• *.png:• *.doc:• *.mp3:• *.mp4:
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
program liczby;
uses crt;
var
a,b,c,d:integer;
l1,l2,l3:string;
begin
clrscr;
repeat
writeln('Podaj liczbe z przedzia�u od 1 do 999');
readln(a);
if (a<1) or (a>999) then writeln('To nie jest liczba z przedzia�u 1-999 ');
until (a>=1) and (a<=999);
if (a>=100) and (a<1000) then
begin
b:=trunc(a/100);
c:=trunc((a-(b*100))/10);
d:=a-b*100-c*10;
end;
if (a>=10) and (a<100) then
begin
c:=trunc(a/10);
d:=a-(c*10);
end;
if (a>=0) and (a<10) then
begin
d:=a;
end;
if b=1 then l1:='sto';
if b=2 then l1:='dwiescie';
if b=3 then l1:='trzysta';
if b=4 then l1:='czterysta';
if b=5 then l1:='piecset';
if b=6 then l1:='sescset';
if b=7 then l1:='siedemset';
if b=8 then l1:='osiemset';
if b=9 then l1:='dziewiecset';
if (c=1) and (d=0) then l2:='dziesiec';
if (c=1) and (d=1) then l2:='jedenascie';
if (c=1) and (d=2) then l2:='dwanascie';
if (c=1) and (d=3) then l2:='trzynascie';
if (c=1) and (d=4) then l2:='czternascie';
if (c=1) and (d=5) then l2:='pietnascie';
if (c=1) and (d=6) then l2:='szesnascie';
if (c=1) and (d=7) then l2:='siedemnascie';
if (c=1) and (d=8) then l2:='osiemnascie';
if (c=1) and (d=9) then l2:='dziewietnascie';
if c=2 then l2:='dwadziescia';
if c=3 then l2:='trzydziesci';
if c=4 then l2:='czterdziesci';
if c=5 then l2:='piecdziesiat';
if c=6 then l2:='szesdziesiat';
if c=7 then l2:='siedemdziesiat';
if c=8 then l2:='osiemdziesiat';
if c=9 then l2:='dziewiecdziesiat';
if d=1 then l3:='jeden';
if d=2 then l3:='dwa';
if d=3 then l3:='trzy';
if d=4 then l3:='cztery';
if d=5 then l3:='piec';
if d=6 then l3:='szesc';
if d=7 then l3:='siedem';
if d=8 then l3:='osiem';
if d=9 then l3:='dziewiec';
textcolor(red);
if a<10 then writeln(l3);
if (a>=10) and (a<100) and (c=1) then writeln(l2);
if (a>=10) and (a<100) and (c<>1) then writeln(l2,' ',l3);
if (a>=100) and (a<1000) and (c=1) then writeln(l1,' ',l2);
if (a>=100) and (a<1000) and (c<>1) then writeln(l1,' ',l2,' ',l3);
readkey;
end.
Sprawdź w pascalu sobie:)