Программа на Паскале

diagen_62 · 01.04.2011, 15:10

Дана последовательность чисел в количестве n штук.определить сколько из них кратно числу 7

shrek=) · 01.04.2011, 15:52

А последовательность каким образом задается?

Если случайно (random) то вот таким вот образом:

Код:

var
n,i,c:integer;
a:array [1..10000] of integer;
begin 
c:=0;
randomize;
write ('Введите размер последовательности   ');
readln(n);
for i:=1 to n do begin 
a[i]:=random(100);
if a[i] mod 7=0 then inc(c);
end;
writeln ('Количество чисел кратных 7  ',c);
readln
end.

diagen_62 · 03.04.2011, 17:10

а что значит эти строчки:
<<a:array [1..10000] of integer;
<<<randomize;
<<<a[i]:=random(100);

shrek=) · 03.04.2011, 17:15

Цитата:

a:array [1..10000] of integer;

Определение массива размерность 10000 значений;

Цитата:

randomize;

Инициализация генератора случайный чисел;

Цитата:

a[i]:=random(100);

Присвоение i'тому элементу массива случайного значения;

diagen_62 · 17.04.2011, 18:22

а можете помочь составить эту программу не через массив...
я не понимаю чего-то...

var
i,c,n:integer;
begin
c:=0;
randomize;
writeln('Введите размер последовательности ');
readln(n);
for i:=1 to n do begin
c:=random(100);
if c mod 7=0 then inc(c);
end;
writeln('Количество чисел кратных 7 =',c);
readln;
end.

объясните пожалуйста что не так?уже пару часов сижу пробую всё, а ниче не получается(

Vladimir_S · 17.04.2011, 19:10

Цитата:

Сообщение от diagen_62

объясните пожалуйста что не так?уже пару часов сижу пробую всё, а ниче не получается(

И не получится, если вы и само проверяемое на делимость на 7 число, и счетчик количества чисел обозначаете одной и той же буквой с! Попробуйте так:

Код:

var
 i,a,c,n:integer;
begin
 c:=0;
 randomize;
 write('Введите размер последовательности ');
 readln(n);
 for i:=1 to n do 
 begin
  a:=random(100);
  write(a:4);
  if a mod 7=0 then inc(c);
 end;
 writeln;
 writeln('Количество чисел кратных 7 = ',c);
 readln;
end.

diagen_62 · 17.04.2011, 19:26

а что значит:
write(a:4);?????

ww01031977 · 17.04.2011, 19:31

Цитата:

Сообщение от diagen_62

а что значит:
write(a:4);?????

выводит на экран переменную А. на все число выделяется 4 символа.

01.04.2011, 15:10	#1 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа на Паскале Дана последовательность чисел в количестве n штук.определить сколько из них кратно числу 7

01.04.2011, 15:52	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	А последовательность каким образом задается? Если случайно (random) то вот таким вот образом: Код: var n,i,c:integer; a:array [1..10000] of integer; begin c:=0; randomize; write ('Введите размер последовательности '); readln(n); for i:=1 to n do begin a[i]:=random(100); if a[i] mod 7=0 then inc(c); end; writeln ('Количество чисел кратных 7 ',c); readln end. Последний раз редактировалось shrek=); 01.04.2011 в 15:58

03.04.2011, 17:10	#3 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а что значит эти строчки: <<a:array [1..10000] of integer; <<<randomize; <<<a[i]:=random(100);

17.04.2011, 18:22	#5 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а можете помочь составить эту программу не через массив... я не понимаю чего-то... var i,c,n:integer; begin c:=0; randomize; writeln('Введите размер последовательности '); readln(n); for i:=1 to n do begin c:=random(100); if c mod 7=0 then inc(c); end; writeln('Количество чисел кратных 7 =',c); readln; end. объясните пожалуйста что не так?уже пару часов сижу пробую всё, а ниче не получается(

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

17.04.2011, 19:26	#7 (permalink)
diagen_62 Member Регистрация: 19.03.2011 Сообщений: 30 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а что значит: write(a:4);?????