Program suma;
Uses crtl
Var a,b,c:integer;
D:real;
Begin
Clrscr;
Writeln(`podaj A'); readln(A);
Writeln(`Podaj B'); readln(B);
D:=0;
For A:=A to B do
Begin
C:=a mod 2;
If c:=0 then
Begin
D:=d+a;
Write(`a', a);
End;
Write(`suma', d:16:0);
Readln;
End.
Połowa trójkąta z gwiazdek:
For a:=1 to 5 do
Begin
For b:=1 to a do
Write(`*');
Writeln;
End;
Kwadrat w którym po przekątnej jest A:
For c:=1 to 5 do
Begin
For a:=1 to 5 do
If a=c then write(`A');
Else write(`*');
Writeln;
End;
Prostokąt w którym 2 kolumna ma A:
For c:=1 to 3 do
Begin
For a:=1 to 5 do
If a=2 then write(`A');
Else write(`*');
Writeln;
End;
Program choinka;
Uses crt;
Var b,a,x :integer;
Begin
Clrscr;
For c:=1 to 3 do
For a:=c+0 to 13 do
Begin
Write(`*', 40-a);
For b:=3 to 2*a do
Write(`*');
Writeln;
End;
Readkey;
End.
Program cos;
Uses crt;
Var b:integer
Begin
Clrscrl
For b:=1 to 10 do
Write(`*');
B:=1;
Repeat
B:=b+1;
Write(`*');
Until b>10
B:=1;
While b<11 do
Begin
B:=b+1;
Write(`*');
End;
Readkey;
End.
Program pole_kwadratu;
Uses crtl
Var b,a,x:integer;
C:char;
Begin
Clrscr;
Writeln;
B:=1;
Repeat
Writeln(`podaje bok kwadratu');
Readln(a);
B:=sqr(a);
Write(`Pole', b:3);
Writeln(`aby zakonczyc wcisnij ESC');
C:readkey;
Writeln(#27);
Until c=#27;
Readkey;
End.
Writeln(`program wypisuje l.naturalne mniejsze od 100 I podzielne przez 11');
For b:=1 to 100 do
Begin
C:=b mod 11;
If c=0 then writeln(b);
End;
Program procedure;
Uses crt;
Var a,b,x,y, save :integer;
Procedure zamiana(a,b:integer) ; lub (var a,b:integer)-zamiana ostatniej linijkii
Begin
Save:=a;
A:=b;
B:=save;
Writeln(`A=', Y:5, `B=', X:5);
End;
Begin {program główny};
Clrscr;
X:=75; Y:=256;
Writeln(`X=', x:5, `Y=', Y:5);
Zamiana(X,Y);
Writeln(`X=', x:5, `Y=', Y:5);
Readkey;
End.
Var dni, a:integer;
Begin
Clrscr;
Writeln(`Program podaje ile dni ma wpisany miesiac');
Writeln(`wpisz, który miesiąc chcesz rozpoznac');
Readln(a);
Case a of
2: dni:=28;
1,3,5,7,8,10,12: dni:=31;
2,4,6,9,11: dni:=30;
Else write(`blad');
End;
Write(`miesiac ma:', dni, `dni');
Readkey;
End.
Var a,n: integer;
Begin
Clrscr;
Writeln(`program oblicza wartosc x do potegi n');
Writeln(`wpisz jaka wartość ma x');
Readln;
Writeln(`wpisz do której potęgi chcesz podnieść x');
Readln(n);
A:=1;
For n:=1 to n do
A:=a*x;
Writeln(`wynik:', a);
Readkey;
End.
Program silnia;
Uses crt;
Var a,n: longint;
Begin
Clrscr;
Writeln(`program oblicza wartosc silni');
Writeln(`wpisz jaka wartość ma n');
Readln(n);
A:=1;
For n:=1 to n do
A:=a*n;
Writeln(`wynik:', a);
Readkey;
End.
Odwrócony trójkąt:
For i:=1 to liczba do
Begin
For j:=1 to liczba - i do
Write(` `);
For j:=1 to I do
Write(`*');
Writeln;
End;
For i:=1 to liczba do
Begin
For j:=1 to liczba do
If j<=(liczba - i) then write(` `);
Else write(`*');
Writeln;
End;
Begin
Write(`program wypisuje komunikat o porze roku');
Write(`podaj numer miesiaca');
Read(a);
Case a of
1 , 2, 12: write(`Jest zima');
3,4,5: write(`Jest wiosna');
6,7,8: write(`jest lato');
9,10,11: write(`jest jesien');
Else write(` nie ma takiego miesiaca');
End;
Readkey;
End.
Program klawiatura;
Uses crt;
Var a:char;
Begin
Clrscr;
Writeln(` program wpisuje komunikat o znku wcisnietym na klawiature');
Writeln(`wcisnij znak, tory chcesz rozpoznac');
Readln(a);
Case a of;
`0'..'9': write(`cyfra');
`a'..'z':write(`mala literka');
`A'..'Z': write(`duza literka');
Else write(`symbol');
End;