roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 20:16, 03 Gru 2007 Temat postu: Lista 3 - zad 2 mgr D |
|
|
| Kod: |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//silnia/////////////////////////
function silnia(n:integer):integer;
var s,i:integer;
begin
s:=1;
for i:=1 to n do begin
s:=s*i;
end;
result := s;
//writeln('Silnia to : ',s);
end;
//silnia/////////////////////////
//suma //////////////////////////
function suma(n:integer):integer;
var i,suma:integer;
begin
suma := 0;
for i:=1 to n do begin
suma := suma + i;
end;
result := suma;
//writeln ('Suma to : ',suma);
end;
//suma //////////////////////////
var x:integer;
begin
writeln('Podaj x policzymy silnie');
readln(x);
if x>=0 then
silnia(x)
else begin
writeln ('podaj x>=0');
readln(x);
silnia(x);
end;
writeln('suma',suma(x));
writeln('silnia',silnia(x));
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
