IT 3 Sem.

Gość

W domu : Sortowanie bąbelkowe

Wojtek

Odczyt z pliku *.txt

program aaaa;
uses crt;
var wiersz:string;
p:text;
begin
clrscr;
assign(p,'*.txt');
reset(p);
while not eof(p) do
begin
readln(p,wiersz);
writeln(p,wiersz);
end;
readln;
close(p);
end.

Wojtek

Zapis do pliku *.txt

program wizytowka;
uses crt;
var p:text;
begin
clrscr;
assign (p, 'aaaa.txt');
rewrite(p);
writeln(p, 'Johnny Bravo');
readln;
close(p);
readln;
end.

Wojtek

Dopisywanie i odczyt z pliku *.txt

program aaaa;
uses crt;
var wiersz:string;
p:text;
a:string;
begin
clrscr;
assign(p,'*.txt');
append(p);
readln(a);
writeln(p,a);
reset(p);
while not eof(p) do
begin
readln(p,wiersz);
writeln(wiersz);
end;
readln;
close(p);
end.

Wojtek

Program Arytmetyka;
Uses Crt;
Var a,b:integer;
suma,roznica,iloczyn:integer;
iloraz:real;
Begin
clrscr;
writeln ('Program wykonuje cztery dzialania arytmetyczne');
write ('Podaj a:');
readln (a);
write ('Podaj b:');
readln (b);
suma:=a+b;
roznica:=a-b;
iloczyn:=a*b;
iloraz:=a/b;
writeln (a,'+',b,'=',suma);
writeln (a,'-',b,'=',roznica);
writeln (a,'*',b,'=',iloczyn);
writeln (a,':',b,'=',iloraz:5:3);
readln;
End.

Wojtek

program potega;
uses crt;
var n,k:integer;

function pot(n,k:integer):integer;

begin
if (k=1) or (k=0) then
pot:=n
else
pot:=pot(n,k-1)*n;
end;

begin
clrscr;
writeln('podaj liczbe');
readln(n);
writeln('do ktorej potegi');
readln(k);
writeln('wynik=',pot(n,k));

readln;

end.

Wojtek

Oblicza silnie

program rekurencja;
uses crt;
var n:integer;

function silnia(n:integer):integer;
begin
if n=0 then silnia:=1
else
silnia:=n*silnia(n-1);
end;
begin
clrscr;
writeln('podaj liczbe');
readln(n);
writeln;
writeln('silnia=',silnia(n));
readln;
end.

Wojtek

program liczby;
uses crt;
var
l:char;

begin
clrscr;
writeln('podaj liczbe:');
readln(l);

case l of
'0':writeln('zero');
'1':writeln('jeden');
'2':writeln('dwa');
'3':writeln('trzy');
'4':writeln('cztery');
'5':writeln('piec');
'6':writeln('szesc');
'7':writeln('siedem');
'8':writeln('osiem');
'9':writeln('dziewiec');
else writeln('liczba z poza zakresu');
end;

readln;
end.

Wojtek

Dzielenie

program dzielacy;
uses crt;
var a,b,iloraz:real;
begin
clrscr;
writeln('podaj a=');
readln(a);
writeln('podaj b=');
readln(b);
if (b=0) then writeln ('nie dzielimy przez 0')
else begin
iloraz :=a/b;
writeln ('a/b=',iloraz:0:2);
end;
readln;
end.

Wojtek

Oblicza pole kola i prostakata

program pole;
uses crt;
var r,a,b,kpole,ppole:real;
opcja:integer;
begin
clrscr;
writeln('Oblicz: (1)pole kola (2)pole prostokata');
readln(opcja);
case opcja of
1: begin
writeln('podaj promien kola');
readln(r);
kpole:=3.14*r*r;
writeln('pole kola wynosi:' ,kpole:0:2)
end;
2: begin
writeln('podaj bok A');
readln(a);
if a<0 then writeln('zla wartosc');
writeln('podaj bok B');
readln(b);
ppole:=a*b;
writeln('pole prostokata wynosi:' ,ppole:0:2);
end
else writeln('zla opcja');
end;
readln;
end.

Wojtek

Oblicza srednia 5 liczb

program dl;
uses crt;
var a,b,c,d,e,f,g:real;
begin
clrscr;
writeln('podaj pierwsza liczbe');
readln(a);
writeln('podaj druga liczbe');
readln(b);
writeln('podaj trzecia liczbe');
readln(c);
writeln('podaj czwarta liczbe');
readln(d);
writeln('podaj piata liczbe');
readln(e);

f:=(a+b+c+d+e)/5;
g:=a+b+c+d+e;

writeln('suma tych liczb wynosi:', g:0:2);
writeln('srednia tych liczb wynosi:', f:0:2);

readln;
end.

Wojtek

Czy z podanych bokow moze powstac trojkat

program od;
uses crt;
var a,b,c,d,e:real;
begin
clrscr;
writeln('podaj wartosc odcinka a:');
readln(a);
writeln('podaj wartosc odcinka b:');
readln(b);
writeln('podaj wartosc odcinka c:');
readln(c);

if (a<=0) or (b<=0) or (c<=0) then writeln('zla wartosc') else

begin
if (a+b>=c) and (b+c>=a) and (a+c>=b) then writeln('z podanych odcinkow mozne powstac trojkat')
else writeln('z odcinkow nie powstanie trojkat');
end;
readln
end.

Hellbilly

O żesz!? Ile tego Smile

Świetnie, że to dałeś! Przyda się napewno Wink

W ogóle to jestem chory i dlatego nie ma mnie w budzie (jakbyście się zastanawiali Cool

)

Wojtek

Liczy ilość wierszy

program aaaa;
uses crt;
var wiersz:string;
p:text;
a:string;
l:integer;
begin
clrscr;
assign(p,'aaaa.txt');
append(p);
readln(a);
writeln(p,a);
reset(p);
l:=0;
while not eof(p) do
begin
l:=l+1;
readln(p,wiersz);
writeln(wiersz);
end;
writeln('ilosc wierszy: ',l);
readln;
close(p);
end.

Wojtek

Gabi wracaj szybko do zdrowia.