Forum PHP.pl > [inne]Pascal PROBLEM

Pomoc - Szukaj - Użytkownicy - Kalendarz

KrzysiekKCN

6.10.2009, 15:05:19

Witam, mam na jutro zadanie na programowanie napisać program obliczający silnię i męczę to już od godziny i nic... Gdzie robię błąd? Nic nigdzie nie widzę, skończyły mi się pomysły.. Mogli byście mi pomóc?

[XML] pobierz, plaintext 
------------------
ten kod już naprawiłem i działa
------------------
program trzy;
uses crt;
var
n,s,p : integer;
begin
clrscr;
writeln ('Silnia według schematu blokowego');
writeln ('Podaj Liczbe N');
read(n);
if (n=0) then writeln ('Silnia wynosi:1') else write('Silnia Wynosi:',(n-1)*n);
 
repeat until keypressed;
end.
[XML] pobierz, plaintext

ale teraz jak napisać silnię?

piotrooo89

6.10.2009, 15:29:17

dawno nie programowałem ale może coś takiego:

Kod

program silnia;
Uses CRT;
var
n,i:integer;
s:integer;

begin
    clrscr;
    write('podaj zmienna a');
    readln(n);
    s:=1;
    i:=0;
    while (i<n) do begin
        i:=i+1;
        s:=i*s;
    end;
    write ('silnia wynosi', s);
    readln
end

To jest wersja lo-fi głównej zawartości. Aby zobaczyć pełną wersję z większą zawartością, obrazkami i formatowaniem proszę kliknij tutaj.