CJ@8 napisał(a):i muszę na jutro napisać taki oto program
program Podnoszenie do potegi;
uses crt;
var
liczba1 : real;
begin
clrscr;
writeln('Podaj liczbe ktora chcesz podniesc do potegi');
readln(liczba1);
writeln('Podana liczba podniesiona do kwadratu to ', liczba1*liczba1);
readln;
end.
function kwadrat(liczba:real):real
begin
kwadrat:=liczba*liczba;
end;
get(a);
write(kwadrat(a));
Program potega;
uses crt;
var a:real;
function kwadrat(liczba:real):real
begin
kwadrat:a*a;
end;
begin
clrscr;
get(a);
write(kwadrat(a));
readln;
end.
Program potega;
uses crt;
var a:real;
function kwadrat(liczba:real):real;
begin
kwadrat:=liczba*liczba;
end;
begin
clrscr;
read(a);
write(kwadrat(a));
readln;
end.
Użytkownicy przeglądający to forum: Varlamov oraz 13 gości