Programik. Pascal.

zochaaaa · Post autor: **zochaaaa** » 7 mar 2010, o 18:00

Witam! Potrzebuję programik na wyliczenie potęgi \(\displaystyle{ a^x}\) z użyciem pętli for.

Althorion · Post autor: **Althorion** » 7 mar 2010, o 18:15

1. Jak bardzo chcesz, żeby to było wydajne?
2. Nie znasz algorytmu czy nie potrafisz zaprogramować?

zochaaaa · Post autor: **zochaaaa** » 7 mar 2010, o 18:35

byle działało:)

Althorion · Post autor: **Althorion** » 7 mar 2010, o 19:10

Nigdy nie programowałem w Pascalu. Wczytywanie danych będziesz musiała sobie zaprogramować sama. Sama pętla potęgująca będzie wyglądała tak:

Kod: Zaznacz cały

wynik = podstawa;
for i:=2 to wykladnik do
begin
    wynik = wynik * podstawa
end;

Liczy potęgi całkowite dodatnie. Musisz wcześniej zadeklarować wszystkie zmienne i pobrać do nich potrzebne dane.

zochaaaa · Post autor: **zochaaaa** » 7 mar 2010, o 19:53

Program petla;
Uses Crt;
Var i,n,a:integer;
s:integer;
begin
Clrscr;
write('Podaj wykadnik: ');
readln(a);
write('Podaj potege: ');
readln(n);
i:=1;
s:=1;
For i:=1 To n Do
s:=s*a;

writeln('Liczba po potegowaniu wynosi: ','a^n=',s);
readln;
end.

Zrobiłam tak i tez działa

Natasha · Post autor: **Natasha** » 7 mar 2010, o 19:55

Mam głupie pytanie
Napisałam program, który rozwiązuje równanie kwadratowe i wyskakuje mi czarne okienko, to co mam w nie wpisać, zeby się przekonać, że mój program działa?

rozkminiacz · Post autor: **rozkminiacz** » 7 mar 2010, o 22:07

pokaz kod

Althorion · Post autor: **Althorion** » 8 mar 2010, o 06:14

Natasha, jak pisałaś program, to zapewne wiesz, jakich danych oczekuje on od użytkownika (zapewne współczynników trójmianu kwadratowego). Wpisz mu je po prostu.