Napisz program, który litery ze słowa "TURBO PASCAL" u segreguje w kolejności alfabetycznej
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.
Nielubie pascala przez jeden GLUPI blad kombinowalem 2h xD
mysle ze jak macie na taki poziom algorytmow to powinienes wiedziec oco chodzi jak cos to PM dodam ze ORD zamienia znak na liczbe
program test;
USES crt;
var
q:integer;
x,y:char;
i:integer;
a:array[1..15] of char;
zm:boolean;
begin
i:=0;
zm:=true;
a:='TURBOPASCAL';
while zm=true do
begin
zm:=false;
i:=0;
while i<=9 do
begin
i:=i+1;
x:=a[i];
y:=a[i+1];
if ORD(x) > ORD(y) then
begin
a[i]:=y;
a[i+1]:=x;
zm:=true;
end;
end;
end;
for q:=1 to 10 do
writeln(a[q]);
readln;
end