Skocz do zawartoś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

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Pascal

[ROZWIĄZANE] Kilka programow

Pascal pascal

  • Zamknięty Temat jest zamknięty
3 odpowiedzi w tym temacie

#1 kijkol

    Profesjonalista

  • Użytkownik

Reputacja: 31
Życzliwy

  • Postów:174
  • Lokalizacja:Witów
Offline

Napisano 13.01.2012 15:57

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?
  • +
  • -
  • 0

#2 Raitaa

    Zaawansowany

  • Użytkownik

Reputacja: 40
Pomocny

  • Postów:142
  • GG:
  • Steam:steam
  • Imię:Rafał
  • Lokalizacja:Kwidzyn
Offline

Napisano 14.01.2012 15:31

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

  • +
  • -
  • 3

b_350_20_118301_000000_FFFFFF_000000.png
 


#3 Ogen Dogen

    Czempion

  • Power User

Reputacja: 261
Wszechwidzący

  • Postów:837
  • GG:
  • Steam:steam
  • Imię:Marcin
  • Lokalizacja:Dąbrowa Górnicza
Offline

Napisano 29.01.2012 17:32

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

  • +
  • -
  • 0

b_350_20_360204_C20008_FFFFFF_000000.png 193.33.176.115:27015

 

94e23d811c.png

 


#4 speedkill

    Godlike

  • Przyjaciel

Reputacja: 1 592
Godlike

  • Postów:2 733
  • GG:
  • Steam:steam
  • Imię:Michał
  • Lokalizacja:Prudnik
Offline

Napisano 13.03.2012 17:22

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

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


Z pozdrowieniami,
Zespół AMXX.PL
  • +
  • -
  • 0

If you can dream it, you can do it.






Również z jednym lub większą ilością słów kluczowych: Pascal, pascal

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych