1) Program pole_kola;
uses wincrt;
var
i,d:integer;
pole:real;
nazwa:string[16];
wyniki:text;
const pi=3.14;
Begin
ClrScr;
Writeln (' PODAJ WARTOSC SREDNICY');
Readln (d);
Writeln ('PODAJ NAZWE PLIKU');
Readln (nazwa);
Assign (wyniki, nazwa);
Rewrite (wyniki);
If d>=0 Then
Begin
pole:=(pi*d*d)/4;
Writeln (wyniki, 'POLE KOLA WYNOSI: ', pole:4:2);
End
Else
Writeln (wyniki, 'POLE KOLA= 0, BO JEGO SREDNICA JEST UJEMNA');
Close (wyniki);
Write ('WYNIKI ZAPISANE');
Readln
End.
2) Program pole_trojkata;
uses wincrt;
var
a,h,pole:real;
nazwa:string[14]; {wyraz o dlugosci 14 znakow}
wyniki:text; {plik tekstowy}
Begin
ClrScr;
Writeln (' OBLICZANIE POLA TROJKATA');
Writeln ('');
Writeln ('PODAJ DLUGOSC PODSTAWY TROJKATA a= ');
Readln (a);
Writeln ('PODAJ WYSOKOSC TROJKATA h= ');
Readln (h);
Writeln ('PODAJ NAZWE PLIKU DANYCH ');
Readln (nazwa);
Assign (wyniki, nazwa);
Rewrite (wyniki); {ponownie zapisz, przepisz na nowo}
If (a>0) Then
Begin
Writeln (wyniki, 'PROGRAM SLUZY DO OBLICZANIA POLA TROJKATA');
Writeln (wyniki);
Writeln (wyniki, 'a= ', a:3:3);
Writeln (wyniki);
pole:= 0.5*a*h;
Writeln (wyniki);
Writeln (wyniki, 'POLE TROJKATA= ', pole:3:3);
Writeln (wyniki);
End;
Close (wyniki);
Writeln ('WYNIKI ZOSTALY ZAPISANE');
Readln;
End.
3) Program rozwiazywanie_rownania_kwadratowego;
uses wincrt;
var
a,b,c,x1,x2,delta:real;
nazwa:string[14];
wyniki:text;
Begin
ClrScr;
Writeln (' OBLICZANIE R-NIA KWADRATOWEGO');
Writeln ('a+x^2+b*x+c');
Writeln ('PODAJ a: ');
Readln (a);
Writeln ('PODAJ b: ');
Readln (b);
Writeln ('PODAJ c: ');
Readln (c);
Writeln ('PODAJ NAZWE PLIKU');
Readln (nazwa);
Assign (wyniki, nazwa);
Rewrite (wyniki);
delta:= (b*b)-4*a*c;
If delta<0 Then
Writeln (wyniki, ' R-NIE NIE MA PIERWIASTKOW RZECZYWISTYCH')
Else
If delta=0 Then
Begin
x1:=-b/2*a;
x2:=x1;
Writeln (wyniki, 'PIERWIASTKI ');
Writeln (wyniki);
Writeln (wyniki, 'x1= ', x1:5:2);
Writeln (wyniki);
Writeln (wyniki, 'x2= ', x2:5:2);
Writeln (wyniki);
End
Else
Begin
x1:=-b-sqrt(delta)/2*a;
x2:=-b+sqrt(delta)/2*a;
Writeln (wyniki, 'x1= ', x1:5:2);
Writeln (wyniki);
Writeln (wyniki, 'x2= ', x2:5:2);
Writeln (wyniki);
End;
Repeat until keypressed;
Close (wyniki);
Writeln ('WYNIKI ZOSTALY ZAPISANE');
Readln;
End.
4) program sumowanie2;
uses wincrt;
var
liczba,i,suma:integer;
begin
clrscr;
write (' PODAJ LICZBE NATURALNA - ');
readln (liczba);
suma:=0;
i:=0;
repeat
suma:=suma+liczba+i;
i:=i+1;
until
i=10;
write (' SUMA DZIESIECIU KOLEJNYCH LICZB WYNOSI - ', suma);
readln
end.
5) Program suma_ciagu;
uses wincrt;
var
a:array [1..10] of real;
n,i:integer;
S:real;
begin
clrscr;
write (' SUMA CIAGU ');
write (' PODAJ LICZBE WYRAZOW - ');
readln(n);
S:=0;
for i:=1 to n do
begin
writeln(' a[',i,'] = ');
readln (a[i]);
S:=S+a[i]
end;
write ('Suma ciagu wynosi - ', S:5:2);
repeat until keypressed;
end.
6) Program pole_kola;
Uses wincrt;
var
i, d :integer ;
pole :real;
const pi=3.14;
begin
clrscr;
write ('Podaj wartosc srednicy = ');
readln (d);
pole:=(pi*d*d)/4;
write ('Pole kola wynosi: ', pole:4:2);
Readln
end.
end.
7) Program pole_kola;
Uses wincrt;
var
i, d :integer;
pole :real;
const pi=3.14;
begin
clrscr;
write ('Podaj wartosc srednicy = ');
readln (d);
If d>= 0 then
begin
pole := (pi*d*d)/4;
write ( 'Pole kola wynosi: ', pole:4:2);
end
else writeln ( 'pole kola =0, bo jego srednica jest ujemna ');
Readln
end.
8) Program pole_kola;
Uses wincrt;
var
i, d :integer;
pole :real;
nazwa : string [16];
wyniki : text;
const pi=3.14;
begin
clrscr;
write ('Podaj wartosc srednicy = ');
readln (d);
write ('Nazwa pliku z wynikami= ');
readln (nazwa);
assign (wyniki,nazwa);
rewrite (wyniki);
If d>= 0 then
begin
pole := (pi*d*d)/4;
write (wyniki, 'Pole kola wynosi: ', pole:4:2);
end
else writeln (wyniki, 'pole kola =0, bo jego srednica jest ujemna ');
Close (wyniki);
Write ('wyniki zostaly zapisane');
Readln
end.
9) program obliczeniowy;
uses wincrt;
var a,b,c,x1,x2,y: real;
odpow : char;
nazwa : string[16];
wyniki : text;
begin
clrscr ;
writeln('podaj nazwe pliku ');
readln(nazwa);
write('podaj wartosc wspolczynnika a funkcji kwadratowej ');
read(a);
write('podaj wartosc wspolczynnika b funkcji kwadratowej ');
read(b);
write('podaj wartosc wspolczynnika c funkcji kwadratowej ');
read(c);
y:=b*b-4*a*c;
if (y<0) then
write('brak rozwiazania')
else if (y=0) then
begin
x1:=-b/2*a;
x2:=x1;
end
else
begin
x1:=(-b-sqrt(y))/2*a;
x2:=(-b+sqrt(y))/2*a;
assign(wyniki,nazwa);
rewrite(wyniki);
writeln(wyniki,'pierwiastek x1',x1:5:2);
writeln(wyniki,'pierwiastek x2',x2:5:2);
close(wyniki);
writeln('wyniki zapisano');
readln;
end;
readln
end.
10) Program Pole_trapezu;
uses wincrt;
var a,b,h,pole : real;
nazwa: string [16];
wyniki: text;
begin
clrscr;
writeln (' OBLICZANIE POLA TRAPEZU');
writeln (' ');
writeln (' podaj dlugosc dolnej podstawy');
readln (a);
writeln ('podaj dlugosc gornej podstawy');
readln (b);
writeln ('podaj wysokosc trapezu ');
readln (h);
writeln ('nazwa pliku z wynikami ');
readln (nazwa);
assign (wyniki, nazwa);
rewrite (wyniki);
pole:= 0.5 *(a+b)*h;
writeln (wyniki, 'pole trapezu wynosi ' , pole:5:2);
close (wyniki);
writeln ('wyniki zostały zapisane');
readln
end.
11) Program Pole_trapezu;
uses wincrt;
var a,b,h,pole :real ;
begin
clrscr;
writeln (' OBLICZANIE POLA TRAPEZU');
writeln (' ');
writeln('podaj dlugosc dolnej podstawy');
readln(a);
writeln ('podaj dlugosc gornej podstawy');
readln (b);
writeln ('podaj wysokosc trapezu ');
readln (h);
pole:= 0.5 *(a+b)*h;
writeln ('pole trapezu wynosi ' , pole:5:2);
readln
end.
1