AMXX.pl: Support AMX Mod X i SourceMod

Wita.
Otoz nie wiem jak napisac kilka programow ;[
Jezeli ktos pomoze za kazdy dam +

1.Program,ktory obliczy iloczyn wprowadzonych liczb(ile liczb podam tyle ma liczyc)
Metoda: instrukcja for to do

2.Program, ktory obliczy sume 10 wprowadzonych liczb
Metoda: instrukcja for to do

3.Program,ktory wyznacza najmniejsza liczbe z 3 liczb naturalnych
Metoda: IF THEN ELSE


Zadanie dodatkowe:
Program, ktory policzy ile wprowadzono liczb parzystych
Metoda: repeat until i IF


Programy maja byc bez zadnej grafiki itp ;]
Zgory dzięki

pomoze ktos?

1

program gadom;
uses crt;
var c,h,a,r:integer;

begin
clrscr;

writeln('Wpisz ile chcesz pomnozyc liczb');
readln(r);
writeln('A wiec wpisz ',r,' liczb');
h:=1;
begin
for c:=1 to r do begin
a:=0;
readln(a);
h:=h*a;
end;
writeln('Suma mnozenia ',h);
readln;
end;
end.

2

program gadom;
uses crt;
var c,h,a,r:integer;

begin
clrscr;

writeln('Program dodaje 10liczb.');
r:=10;
writeln('A wiec wpisz ',r,' liczb');
h:=0;
begin
for c:=1 to r do begin
a:=1;
readln(a);
h:=h+a;
end;
writeln('Suma dodawania ',h);
readln;
end;
end.

3

program gadom;
uses crt;
var a,b,c,min:integer;

begin
clrscr;
writeln('Podaj pierwsza');
readln(a);
writeln('Podaj druga');
readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
writeln('Podaj trzecia');
readln(c);

if (a< <img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' /> and (a<c) then min:=a
else
if (b<c) and (b<a) then min:=b
else
if (c<a) and (c< <img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' /> then min:=c
else
writeln('brak rozwiazania');
writeln('Najmniejsza to ',min);
readln;
end.

Użytkownik Raitaa edytował ten post 14.01.2012 15:56

Sorki za mały odkop , ale myślę że mogę jeszcze pomóc o ile kolega jest jeszcze zainteresowany
Chodzi o to zadanie dodatkowe.

I rozwiązanie

program parzystosc;
Uses crt;
Var
a,b,c:integer;
f:array[1..30] of integer;
begin
clrscr;
writeln('Ile chcesz podac liczb ?');
readln(a);
writeln('Podaj te liczby');
for b:=1 to a do readln(f[b]);
b:=0;
repeat
inc(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
if (f[b] mod 2)=0 then writeln(f[b],' jest parzyste')
else if (f[b] mod 2)<>0 then writeln(f[b],' jest nieparzyste');
until b=a;
readln;
end.

II rozwiązanie

program parzystosc;
Uses crt;

Var
a,b,c,d:integer;
f:array[1..60] of integer;

begin
clrscr;
writeln('Ile chcesz podac liczb ?');
readln(a);
writeln('Podaj te liczby');
for b:=1 to a do readln(f[b]);
b:=0;
c:=29;
repeat
inc(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
inc(c);
if (f[b] mod 2)=0 then f[c]:=1 else f[c]:=0;
until b=a;
a:=a+30;
d:=0;
for c:=30 to a do if f[c]=1 then inc(d);
writeln('Podales ',d,' parzystych liczb');
readln;
end.

Obydwa działają
Użytkownik Ogen Dogen edytował ten post 29.01.2012 17:33

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL