Zadania na programowanie 04.12.2009

ďťż

Bednarz Przemysław - Czw Gru 03, 2009 12:41 am
Funkcja licząca n-tą potęgę danej liczby: (funkcja z parametrem)
Kod: Zaznacz wszystkoprogram funkcja_potega;
uses crt;
var a,b:integer;

function potega(podst,enta:integer):integer;
var wynik,pom:integer;
begin
wynik:=podst;
for pom:=2 to enta do
wynik:=podst*wynik;
writeln('wynik to: ',wynik);
end;

begin
clrscr;
write('podaj podstawe: ');
read(a);
write('podaj wykladnik: ');
read(b);
potega(a,b);

repeat until keypressed;
end.

Lub bez parametru:
Kod: Zaznacz wszystkoprogram funkcja;
uses crt;
function potega:integer;
var podst,enta,wynik,pom:integer;

begin
writeln('wpisz podstawe: ');
readln(podst);
writeln('podaj wykladnik: ');
readln(enta);
wynik:=podst;
for pom:=2 to enta do
wynik:=podst*wynik;
writeln('wynik to: ',wynik);
end;

begin
potega;
repeat until keypressed;
end.

Działać powinny oba kody, a który jest lepszy to nie wiem. Na programowaniu będzie chyba wymagany z parametrem

Mariusz_Cebula - Czw Gru 03, 2009 1:57 pm
Drugi to poprostu zwykly program:D:P A nie pomocna funkcja:P wystarczy wywalic function i naglowek potegi i wywolywanie i bedzie super program:P:P

Mariusz_Cebula - Czw Gru 03, 2009 2:00 pm
Kod: Zaznacz wszystkoprogram pt;
uses crt;
var
z,x:integer;
i:integer;
function potega(a,b:integer):integer;
var
c:integer;
begin
c:=1;
for i:=1 to b do
begin
c:=c*a;
potega:=c;
end;
end;
begin
clrscr;
writeln('Podaj podstawe');
readln(z);
writeln('Podaj wykladnik');
readln(x);
writeln('Wynik: ',potega(z,x));
readln;
end.

Ja mam tak jakby cos.

Mała Mi - Czw Gru 03, 2009 3:50 pm
Ja mam tak:
Kod: Zaznacz wszystkoprogram potega;
uses crt;
var w,n,p:integer;
function pot(p:integer):integer;
var i,s:integer;
begin
s:=1;
for i:=1 to n do
begin
s:=s*p;
end;
pot:=s;
end;
begin
clrscr;
writeln('program oblicza n-tą potęgę podanej liczby');
writeln('podaj liczbę:');
readln(p);
writeln('podaj potęgę;');
readln(n);
w:=pot(p);
writeln('potęga wynosi: ',w);
readln;
end.

zrobił ktoś zamiane binarnych na dziesiętne?

devO - Czw Gru 03, 2009 4:06 pm
Kod: Zaznacz wszystkoprogram binna10;
uses crt;
type tablica=array[1..100] of integer;
var n,a,i: integer;
tab: tablica;
s: string;
ok: boolean;
function f (c: char): integer;
begin
f:=ord(c) - ord('0')
end;
begin
clrscr;

write('Podaj ciag liczb 0, 1: ');
readln(s);

n:=length(s);
ok:=true;
for i:=1 to n do
begin
if (s[i] < '0') or (s[i] > '1') then
begin
write('Nieprawidlowa cyfra ', s[i]);
ok:=false
end;
end;

if ok then
begin
a:=f(s[1]);
for i:=2 to n do
begin
a:=2*a + f(s[i])
end;

write('liczba w systemie dziesietnym to: ',a);
end;

repeat until keypressed;
end.

Bednarz Przemysław - Czw Gru 03, 2009 6:04 pm
To ma ktoś z binarnego na decymalny bo notabene takie było zadanie. Z decymalnego na binarny było już kiedyś, tylko bez funkcji.

devO - Czw Gru 03, 2009 6:13 pm

To ma ktoś z binarnego na decymalny bo notabene takie było zadanie. Z decymalnego na binarny było już kiedyś, tylko bez funkcji.

przecież podałem

Bednarz Przemysław - Czw Gru 03, 2009 6:58 pm

To ma ktoś z binarnego na decymalny bo notabene takie było zadanie. Z decymalnego na binarny było już kiedyś, tylko bez funkcji.

przecież podałem

Darmowy hosting zapewnia PRV.PL