Pomoc przy programie w turbo pascal

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 20:00

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.

**Posty:** 14746 · przez **fluid** 28 Lut 2011, 20:11

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

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 20:11

Pomoze mi ktos? to naprawdę ważne.

**Posty:** 8079 · przez **kajtekjr** 28 Lut 2011, 20:13

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

**Posty:** 12734 · przez **Mikou@j** 28 Lut 2011, 20:26

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.

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 20:30

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ą.

**Posty:** 1022 · przez **floyd5** 28 Lut 2011, 20:50

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ł.

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 20:50

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??

**Posty:** 8079 · przez **kajtekjr** 28 Lut 2011, 21:30

To można, a nawet trzeba, zrobić na jednej zmiennej

Bo przecież kwadrat każdej liczby n to n*n

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 21:58

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.

**Posty:** 1022 · przez **floyd5** 28 Lut 2011, 22:14

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

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 22:23

Coś jest nie tak

**Posty:** 1022 · przez **floyd5** 28 Lut 2011, 22:45

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.

**Posty:** 30 · przez **CJ@8** 28 Lut 2011, 22:48

Dzieki za pomoc.Do zamkniecia.

Kto jest na forum