[ Pobierz całość w formacie PDF ]
.program Przyklad1;program Przyklad1;uses Crt;var i: integer;procedure Usmiechy;beginfor i := 1 to 20 do Write(':-)');end;beginClrScr;GotoXY(10,12);Usmiechy;Readln;end.program Przyklad3;uses Crt;var i:integer;procedure Usmiechy;var k:integer;beginClrScr;Readln(k);ClrScr;GotoXY(10,12);if k>0 then for i:=1 to 20 do Write(':-)')else for i:=1 to 20 do Write(':-(');end;beginUsmiechy;Readln;end.program Przyklad4;uses Crt;var i,n:integer;procedure Usmiechy(m:integer);var k:integer;beginClrScr;Writeln ('usmiech - liczba dodatnia, smutek-liczba niedodatnia');Readln(k);ClrScr;GotoXY(12,24);if k>0 then for i:=1 to m do Write(':-)')else for i:=1 to m do Write(':-(');end;beginClrScr;Writeln('Podaj liczbe usmiechow lub smutkow');Readln(n);Usmiechy(n);Readln;end.program Test1;uses Crt;var a,b:integer;procedure Wartosci(x, y: integer);beginx:= x+1;y:= y-1;Writeln('x = ',x);Writeln('y = ',y);end;begin;ClrScr;Readln(a,b);Wartosci(a,b);Writeln('a = ',a);Writeln('b = ',b);end.program Miniszyfr;uses Crt;const n = 20;var dlugosc: byte;napis: string[n];i:integer;beginClrScr;Writeln('wpisz wyraz');Readln(napis);dlugosc := Length(napis);for i := dlugosc downto 1 do Write(napis[i]);Readln;end.program tablica;const n=7;var a:array [1.n] of integer;i:integer;Procedure czytaj;beginfor i:=1 to n do readln(a[i]);end;beginczytaj;readln;end [ Pobierz całość w formacie PDF ]