FORUM KLASY II F

  • Nie jesteś zalogowany.
  • Polecamy: Gry

#1 2011-02-20 00:10:02

Zawilec

Użytkownik

2244021
Zarejestrowany: 2011-01-27
Posty: 49
Punktów :   

Informatyka

Program z powtórki:

uses crt;
var a: array [1..2] of byte;
procedure ramka;
begin
writeln('******************');
writeln('*                            *');
writeln('*                            *');
writeln('*                            *');
writeln('******************');
end;
begin
clrscr;
writeln('ramka 1 - 1, ramka 2 - 2');
readln(a[1]);
if a[1]=1 then
begin
ramka;
gotoxy(8,5);
writeln('ramka 1');
end;
if a[1]=2 then
begin
ramka;
gotoxy(8,5);
writeln('ramka 2');
end;
readln;
end.

Offline

 

#2 2011-03-03 18:31:24

Zawilec

Użytkownik

2244021
Zarejestrowany: 2011-01-27
Posty: 49
Punktów :   

Re: Informatyka

Sprawdzian:

I grupa - pole trójkąta

var
a: array [1..3] of real;
procedure pole;
begin
readln(a[1], a[2]);
a[3]:=(a[1]*a[2])/2;
writeln (a[3]);
end;
begin
pole;
readln;
end.


II grupa - pole prostokąta

var
a: array [1..3] of real;
procedure pole;
begin
readln(a[1], a[2]);
a[3]:=a[1]*a[2];
writeln(a[3]);
end;
begin
pole;
readln;
end.


Na wszelki wypadek możecie sprawdzić czy będą działać.

Offline

 

Stopka forum

RSS
Powered by PunBB
© Copyright 2002–2008 PunBB
Polityka cookies - Wersja Lo-Fi


Darmowe Forum | Ciekawe Fora | Darmowe Fora
www.naszaf.pun.pl