Turbo Pascal - wybieranie liczb podzielnych przez 2 z tablicy

Question

W tej dziedzinie jestem bardzo słaby i dopiero zaczynam... Me zadanie: Napisać program, który wybierze i wypisze z tablicy 10-cio elementowej liczby podzielne przez 2. Jeśli nie znalazł - komunikat Oczywiście program nie działa. Proszę o naprowadzenie - co robię źle...

wojcik89 · Accepted Answer

program tablica;
uses crt;
var
t:array[1..10] of integer;
i:integer;
begin
clrscr;
writeln ('Wpisz 10 liczb');
for i:=1 to 10 do
readln (t[i]);
writeln('liczby podzielne przez 2 to ');
 for i:=1 to 10 do
    begin
	if t[i] mod 2 =0 then
	 writeln(t[i]);
	end;
readln;
end;

tak wygląda poprawiony program troche go przerobiłem

Dodano po 3 [minuty]:

aby sprawdzić czy liczba jest podzielna przez inną stosuje sie funkcje mod która zwraca reszte z dzielenia np a mod 2 wyświetla reszte z dzienia przez 2.
P.S Napisałem drugi post bo w pierwszym nie mogłem więcej znaków napisać.
Moge wiedzieć dlaczego?
pozdrawiam.

Łuk_F · Accepted Answer

Witam.
Można wykorzystać zmienną logiczną.

program tablica;
uses crt;
var
t:array[1..10] of integer;
i:integer;
tak:boolean;

begin
clrscr;
tak:=false;
writeln ('Wpisz 10 liczb');
for i:=1 to 10 do
     readln (t[i]);
writeln('liczby podzielne przez 2 to ');
for i:=1 to 10 do
     if t[i] mod 2 =0 then
     begin
        tak:=true;
        writeln(t[i]);
     end;
if not tak then
     writeln('BRAK');
readln;
end.

Sady · Answer

Do tego jeszcze nie dotarłem, wielkie dzięki za pomoc.
Jeszcze jedna kwestia mnie męczy w owym programiku.

Ma za zadanie wyświetlić: BRAK - ale tylko raz.

I zaczynam kombinować. Czyli:

program tablica;
uses crt;
var
t:array[1..10] of integer;
i:integer;

begin
clrscr;

writeln ('Wpisz 10 liczb');
for i:=1 to 10 do
readln (t[i]);
writeln('liczby podzielne przez 2 to ');
   for i:=1 to 10 do
     begin
     if t[i] mod 2 =0 then
     writeln(t[i])
   
     else
     writeln ('BRAK');
     end;

readln;
end.

Ale program za każdym razem po sprawdzeniu wyświetli albo liczbę albo BRAK - co jest oczywiste.
Proste pytanie - jak rozwiązać tą kwestie.

Mam na sprzedaż:
30.08.2006 TS 400VA 12V 33.3A

wojcik89 · Answer

Tego nie rozumie, o co ci dokładnie chodzi.

Sady · Answer

Jeśli nie będzie jakiej kolwiek liczby podzielnej przez 2 (w całej tablicy). Ma wyświetlić przykładowo "BRAK"

A w napisanym programie będzie wypisywał za każdym razem, gdy nie będzie spełniony warunek dzielenia.

Mam nadzieje, że już jaśniej.

Mam na sprzedaż:
30.08.2006 TS 400VA 12V 33.3A

wojcik89 · Answer

program tablica;
uses crt;
var
t:array[1..10] of integer;
i:integer;
begin
clrscr;
writeln ('Wpisz 10 liczb');
for i:=1 to 10 do
readln (t[i]);
writeln('liczby podzielne przez 2 to ');
 for i:=1 to 10 do
    begin
	if t[i] mod 2 =0 then
	 writeln(t[i]);
	end;
readln;
end;

tak wygląda poprawiony program troche go przerobiłem

Dodano po 3 [minuty]:

aby sprawdzić czy liczba jest podzielna przez inną stosuje sie funkcje mod która zwraca reszte z dzielenia np a mod 2 wyświetla reszte z dzienia przez 2.
P.S Napisałem drugi post bo w pierwszym nie mogłem więcej znaków napisać.
Moge wiedzieć dlaczego?
pozdrawiam.

Sady · Answer

Rozwiązałem to tak:

program tablica;
uses crt;

var
T:array[1..10] of integer;
n,i:integer;

begin
clrscr;
writeln ('Wpisz 10 liczb');
n:=0;

for i:=1 to 10 do
readln (T[i]);
writeln ('Liczby podzielne przez 2 to ');

    for i:=1 to 10 do
    begin
    if T[i] mod 2 =0 then
    writeln (T[i])

	else
        n:=n+1;
        if n=10 then
        writeln ('Brak liczb podzielnych');
    end;

readln;
end.

Niby wszystko chodzi. Zawsze to człowiek już bogatszy w wiedzę.
Podziękowania dla wszystkich którzy włączyli się do tematu.

Mam na sprzedaż:
30.08.2006 TS 400VA 12V 33.3A

Turbo Pascal - wybieranie liczb podzielnych przez 2 z tablicy

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu