Alkan Var |a,b,n,m:integer; |Begin |writeln(‘oblicza masy kolejnych alkanow’); |readln; |writeln(‘wprowadz a’); |readln(a); |writeln(‘wprowadz b’); |readln(b); |for n:=a to b do |writeln(‘masa alkanu m=’,12*n+(1*(2*n+2))); |readln(m); |end.
Kalkulator var |a,b:integer; |begin |writeln(‘wprowadz liczbe a’); |readln(a); |writeln(‘wprowadz liczbe b’); |readln(b); |writeln(‘dodawanie a+b=’ , a+b); |readln; |writeln(‘odejmowanie a-b=’ ,a-b); | readln; |writeln(‘mnozenie a*b=’, a*b); |readln; |writeln(‘dzielenie a/b=’, a/b); | readln; |end; |if b=0 then |Begin |writeln(‘nie wykonuj’); |readln; |end. |else |begin |writeln(‘dzielenie a/b=’, a/b); | readln; |end;| end.
Czas auta var t1, t2, s : extended; |var v1, v2: extended; |begin |randomize; |v1:=random(50)+101; |s:=100; | t1:=s/v1;| v2:=(1/2)*v1; | t2:=s/v2; | writeln('pierwszy czas wynosi: '); | writeln(t1:4:2); |writeln('drugi czas wynosi: '); | writeln(t2:4:2); |readln;|
end.
Sześcian var |a:integer; begin a:=0; writeln(‘wprowadz liczbe’); readln(a); if a<=0 then writeln(‘sprzecznosc’); if a>0 then writeln(‘P=’, (6*a*a), ‘v=’ , (a*a*a)); readln; end.
Równanie kwadratowe var A,B,C :Real; Delta, X1, X2 :Real; begin repeat writeln ('Podaj wspolczynniki rownania kwadratowego'); write ('Podaj A: '); readln (A); if (A<>0) then begin
write ('Podaj B: '); readln (B); write ('Podaj C: '); readln (C); Delta := sqr(B)-4*A*C;
if (delta<0) then writeln ('Rownanie nie ma pierwiastkow') else if (Delta=0) then
begin X1 := -b/(2*A); writeln ('Rownanie ma jeden pierw: ',X1 : 10:5); end
else begin X1 := (-B-Sqrt(Delta)/(2*A)); X2 := (-B+Sqrt(Delta)/(2*A)); writeln ('Rowanie ma 2 pierw: ',X1:10:2,' ',X2:10:2); end; writeln; end; until (A=0); readln; end.
Alkohol Var a,b:integer; Begin writeln(‘wprowadz 2 liczby’); readln(a,b); for a:=a to b do writeln(‘M=’, ((12*a)+(2*a+1)+16+1)); readln; end.
Masa var M,n:integer; Begin writeln(‘wprowadz liczbę’); readln(n); M:=((n*12)+(2*n+2)) writeln(‘M=’ , M); readln; end.
Prędkość var t1,t2,v1,v2 :integer; begin randomize; t1:=random(100); writeln(t1); writeln(‘v1=’ ,100/t1); readln; t2:=t1+40; writeln(t2); writeln(‘v2=’ ,100/t2); readln; end.