IT 3 Sem.

Podstawy PASCALa – Kompendium

http://uoo.univ.szczecin.pl/~jakubs/kompendium.html

Pascal tutorial: http://turbopascal.skryptoteka.pl/index-noflash.html

reset - otwiera istniejący plik i ustawia się na jego początku.

rewrite - czyści plik.

Liczy ilosc 'a' w pliku tekstowym

program aaaa;
uses crt;
var wiersz:string;
p:text;
a:char;
l:integer;

begin
clrscr;
assign(p,'text.txt');
reset(p);
l:=0;
while not eof(p) do
begin
...

Gabi wracaj szybko do zdrowia.

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); ...

Muntrill dobre

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 ...

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 tr ...

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 ...

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')
els ...

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');
...

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('poda ...

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'); ...

Program Arytmetyka;
Uses Crt;
Var a,b:integer;
suma,roznica,iloczyn:integer;
iloraz:real;
Begin
clrscr;
writeln ('Program wykonuje cztery dzialania arytmetyczne');
wr ...