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?
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.
|
Guest Message by DevFuse
3 odpowiedzi w tym temacie
#1
Napisano 13.01.2012 15:57
#2
Napisano 14.01.2012 15:31
1
2
3
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
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
II rozwiązanie
Obydwa działają
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
#4
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, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.
Z pozdrowieniami,
Zespół AMXX.PL
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
If you can dream it, you can do it.
Również z jednym lub większą ilością słów kluczowych: Pascal, pascal
Pascal
"Zaufany" program?Napisany przez MonsterLevel , 05.10.2014 pascal |
|
|
|||
Pascal
Pomoc w schemacie Hornera (obliczanie wartości wielomianu)Napisany przez K!113r , 31.01.2013 pascal |
|
|
|||
Pascal
[freepascal] GetPixelRGB(x, y);Napisany przez daedhelil , 16.01.2013 pascal |
|
|
|||
|
Pascal
[ROZWIĄZANE] Magia pascala czyli co jest źleNapisany przez ToRRent , 29.11.2012 pascal |
|
|
||
Pascal
Nie potrafię napisać programu na długość przeciwprostokątnejNapisany przez Fail , 17.09.2012 Pascal |
|
|
Użytkownicy przeglądający ten temat: 0
0 użytkowników, 0 gości, 0 anonimowych