Wklejka wt7yrsovd80o

Wykryto wyłączony javascript

Aktualnie masz wyłączony javascript. Kilka funkcji może nie działać. Włącz ponownie javascript, aby korzystać z pełnej funkcjonalności.

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

Rozpoczynaj nowe tematy i odpowiedaj na inne
Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
Dodawaj wydarzenia do kalendarza społecznościowego
Stwórz swój własny profil i zdobywaj nowych znajomych
Zdobywaj nowe doświadczenia

Guest Message by DevFuse

Wklejka wt7yrsovd80o dodana przez Tded, 13.04.2012 19:19

Tekst Pobierz

Typ:

Generator

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.

program GeneratorExpa;                  //2 147 483 647   1 000 000 000
uses crt;
var
maxl:longint; //maxymalny level
maxe:longint; //maxymalny exp
level:longint; //level
a:real;
exp:real;
plik:text;
 
procedure zakoncz;
begin
writeln('Osiagnieto maxymalna wartosc exp: ',exp:0:0,')');
level:=maxl;
readkey;
end;
 
 
BEGIN
clrscr;
writeln('Podaj Maxymalny lvl');
readln(maxl);
writeln('Podaj max exp, 0=domylnie');
readln(maxe);
Writeln('Podaj zmienna "a"');
readln(a);
clrscr;
assign(plik, 'C:tabela.txt');
rewrite(plik);
 
   if maxe = 0 then maxe:=1000000000;
        for level:=1 to maxl do
       begin
        exp:=a*sqr(level);
        write(plik, exp:0:0,',');
        writeln('exp: ',exp:0:0,' level: ',level);
        if exp>maxe then zakoncz;
       end;
writeln('Wygenerowano tablice exp');
readkey;
end.

Dodanych wklejek: 4031

Kod LaTeX

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Logowanie