Czerwiec ¶ 2013 ¶ Zeszyt ucznia

program sprawdzianSumaLiczb;
var a, b: Integer;
	sum: Integer;
begin
	sum:=0;
	Write('Podaj poczatek i koniec przedzialu: ');
	ReadLn(a, b);
	if a<=b then begin
		for a:=a to b do begin
			sum:=sum+a;
		end;	
	end;
	WriteLn('Suma liczb w tym przedziale to ', sum, '.');
	ReadLn;
end.

program sprawdzianSumaLiczb;

var a, b: Integer;

sum: Integer;

begin

sum:=0;

Write('Podaj poczatek i koniec przedzialu: ');

ReadLn(a, b);

if a<=b then begin

for a:=a to b do begin

sum:=sum+a;

end;

WriteLn('Suma liczb w tym przedziale to ', sum, '.');

ReadLn;

end.

program grupaDruga;
var a, n, i, sum: Integer;

begin
	Write('Podaj a i n: ');
	ReadLn(a, n);
	if n>=0 then begin
		for i:=1 to n do begin
			sum:=sum+a;
            a:=a+1;
		end;
	end;
	WriteLn('Oczekiwany wynik to ', sum);
	ReadLn;
end.

program grupaDruga;

var a, n, i, sum: Integer;

begin

Write('Podaj a i n: ');

ReadLn(a, n);

if n>=0 then begin

for i:=1 to n do begin

sum:=sum+a;

a:=a+1;

end;

WriteLn('Oczekiwany wynik to ', sum);

ReadLn;

end.

Wersja 1.

program figury;
uses crt;
var w, k: integer; {wiersze i kolumny}
    f: char;       {wybrana figura}
    i, j: integer; {iteracje}

begin
        clrscr;
        repeat begin
                WriteLn('Wybierz figure: ');
                WriteLn('P: prostokat');
                WriteLn('T: trojkat');
                Write('C: choinka ');
                f:=readkey;
                WriteLn;
                end
        until (f='P') or (f='T') or (f='C');
        Write('Podaj liczbe wierszy: ');
        ReadLn(w);
        clrscr;

        if(f='P') then begin
                Write('Podaj liczbe kolumn: ');
                ReadLn(k);
                clrscr;
                for i:=1 to w do begin
                        for j:=1 to k do Write('*');
                        WriteLn;
                end;
        end;

        if(f='T') then begin
                for i:=1 to w do begin
                        for j:=1 to i do Write('*');
                        WriteLn;
                end;
        end;

        if(f='C') then begin
                for i:=1 to w do begin
                        for j:=w-i downto 1 do Write(' ');
                        for j:=1 to 2*i-1 do write('*');
                        writeln;
                end;
        end;
delay(2000);
end.

program figury;

uses crt;

var w, k: integer; {wiersze i kolumny}

f: char; {wybrana figura}

i, j: integer; {iteracje}

begin

clrscr;

repeat begin

WriteLn('Wybierz figure: ');

WriteLn('P: prostokat');

WriteLn('T: trojkat');

Write('C: choinka ');

f:=readkey;

WriteLn;

end

until (f='P') or (f='T') or (f='C');

Write('Podaj liczbe wierszy: ');

ReadLn(w);

clrscr;

if(f='P') then begin

Write('Podaj liczbe kolumn: ');

ReadLn(k);

clrscr;

for i:=1 to w do begin

for j:=1 to k do Write('*');

WriteLn;

end;

if(f='T') then begin

for i:=1 to w do begin

for j:=1 to i do Write('*');

WriteLn;

end;

if(f='C') then begin

for i:=1 to w do begin

for j:=w-i downto 1 do Write(' ');

for j:=1 to 2*i-1 do write('*');

writeln;

end;

delay(2000);

end.

Czytaj dalej →

Zeszyt ucznia

Notatki z przedmiotów zawodowych nowego technika informatyka

Miesięczne archiwum: Czerwiec 2013

Sprawdzian, praktyka, cz. I

Figury