Question

Może ktoś mi napisać króciutki programik do pascala turbo 7 ?

Obojętnie jaki , króciotki tak wszystko po kolei , jak powinno byc :)

Ze bym obczaił jak się programy piszę

Napisać treść tu >

Answer 1

króciutki to może mnożenie xD

 

PROGRAM Mnozenie;

USES Crt;

VAR

a, b : Integer;

c : Byte;

{Poczatek procedury}

PROCEDURE Mnoz;

BEGIN

ClrScr;

WriteLn('PROGRAM MNOZENIE');

WriteLn('Podaj pierwszą liczbę : ');

ReadLn(a);

WrtieLn('Podaj drugą liczbę : ');

ReadLn(b);

WriteLn(Wynki to : ,a*b);

ReadLn;

END;

{Koniec procedury}

BEGIN

Mnoz;

WriteLn('Jeszcze raz ? 1 - tak , 0 - nie');

ReadLn(c);

IF c = 1 THEN Mnoz

ELSE

Halt;

END.

Answer 2

Program Project2;

{$APPTYPE CONSOLE}
var
ilosc_ocen:integer;
oceny:array[1..20] of integer;
numer_oceny:integer;
suma:integer;
srednia:real;




begin
suma:=0;
writeln('podaj ilosc ocen');
readln(ilosc_ocen);
for numer_oceny:=1 to ilosc_ocen do
begin
writeln('podaj ocene ',numer_oceny);
readln(oceny[numer_oceny]);
suma:=suma+oceny[numer_oceny];


end;
srednia:=suma/ilosc_ocen ;
writeln('srednia ocen',srednia:7:2);

readln;
end.s


Taki mały co oblicza Srednia Ocen jaka Masz:)