Pascal 2 Problemy...

[Night Knight 0]

Witam mam takie 2 problemiki z starego dobrego Pascala i proszę z całego serca, pomóżcie mi:

1. Program który z tablicy (n) będzie wypisywał liczby podzielne przez 7

oraz

2. Program który sprawdzi czy elementy w tablicy, które występują obok siebie są równe.

Będę bardzo wdzięczny za pomoc

[januzi 24]

1. tab[index] mod 7

2. tab[index] = tab[index+1], w petli do n-1

[Night Knight 0]

a dużo będzie kosztował kod całego programu u Ciebie? bo ja raczej biedny grafik jestem niż programator...

[Night Knight 0]

ok coś wymyśliłem odnośnie zadania 1

 

program TAB7;
Var
  t:array[1..200]of integer;
  i: integer;

Begin
for i := 1 to 200 do
begin
repeat i:=i+1;
if i mod 7=0 then
writeln(i);
until i=200;
end;
read(i);
End.

ale to chyba nie tablica

[Bono[UG] 1920]

1. Po co dwie pętle? Wywal repeat untl.

2. Tablica jest pusta, wypełnij ją np. losowymi liczbami.

3. W warunku sprawdzasz i zamiast t

[Deschain90 0]

pierwszy

 

program TAB7;

Var

t:array[1..200]of integer;

i: integer;

randomize();

Begin

for i := 0 to 199 do

begin

a=random(100)

end;

Begin

for i := 0 to 199 do

begin

if t mod 7 == 0 then

writeln(t);

end;

read(i);

End.

============================

drugi

 

 

program TAB7;

Var

t:array[1..200]of integer;

i: integer;

randomize();

Begin

for i := 0 to 199 do

begin

if t == t[i+1] then

begin

writeln('rowne= ',t,' na pozycji',i,' oraz ' i+1 );

end;

 

end;

Begin

for i := 0 to 199 do

begin

if t mod 7 == 0 then

writeln(t);

end;

read(i);

End.

 

 

Chyba dobrze ale z pascalem nie mialem kontaktu juz od prawie roku

[ketyow 47]

Tylko jedno =, ponadto w jedynce zamiast "t" losujesz liczby dla niezadeklarowanej zmiennej "a". Do tego w petli w drugim powinno byc for i:=1 to 198, bo jest t+1 wiec wykroczylbys poza wartosc tablicy.