Forum Programosy

Witam wszystkich.Mam ogromną prośbę ,dopiero zaczynam uczyc sie programowania,i muszę na jutro napisać taki oto program:funkcja która oblicza liczbę podniesioną do kwadratu.Starałem się coś napisac,ale mi nie wychodzi,spędziłem sporo czasu przy tym i nic.Naprawdę bardzo proszę o pomoc.Z góry dzieki.

CJ@8 napisał(a):i muszę na jutro napisać taki oto program

no to sie trzeba bylo uczyc
tu nikt za ciebie nie bedzie odrabial prac domowych

Pomoze mi ktos? to naprawdę ważne.

Można Ci pomóc, ale daj coś od siebie... Napisz kod, wklej go tutaj i wtedy będzie można Cię jakoś naprowadzić co zrobić aby zaczął działać jak należy.. Gotowca nie dostaniesz, bo założę się że to zadanie na programowanie do szkoły
Sam takie miałem w pierwszej klasie technikum na profilu informatyka

Programista ze mnie żaden, ale spróbuj tak.

Kod: Zaznacz wszystko

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.

Tak to zadanie do szkoły,ja dopiero zaczynam przygode z programowaniem,nie czaje jeszcze tego dlatego prosze o pomoc,badźcie wyrozumiali.

Dodano Dzisiaj, 19:33:
Tak to ja umiem,to ma byc napisane z funkcją.

Kod: Zaznacz wszystko

function kwadrat(liczba:real):real
begin
kwadrat:=liczba*liczba;
end;

w kodzie programu (a-zmienna real)

Kod: Zaznacz wszystko

get(a);
write(kwadrat(a));

Nie mam kompilatora żeby to sprawdzić, a dawno nie bawiłem się pascalem, ale ogólną zasadę będziesz znał.

Chyba będe musiał tak to napisac nic bardziej zlozonego nie wymysle
Program potega;
uses crt;
var a,b:integer;
begin
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
writeln('Podana liczba podana do kwadratu to',a*b);
readln;
end.

Dodano Dzisiaj, 19:53:
floyd5 dzieki moze uda mi sie to jakos uporzadkowac.

Dodano Dzisiaj, 19:55:
I czy jedna zmienna wystarczy??

To można, a nawet trzeba, zrobić na jednej zmiennej Bo przecież kwadrat każdej liczby n to n*n

Program potega;
uses crt;
var a:real;
begin
clrscr;
function kwadrat(liczba:real):real
begin
get(a);
kwadrat:a*a;
write(kwadrat(a));
readln;
end;
end.
Prosze o poprawienie błędów.

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.

spróbuj taki

Coś jest nie tak

Podaj co - nie mam kompilatora więc nie mogę sam sprawdzić.

Edit:
Ściągnałem kompilator i przetestowałem - teraz działa na pewno.

Kod: Zaznacz wszystko

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.

Dzieki za pomoc.Do zamkniecia.