вопрос по массивам Опции

[amebka]

Задание:
Вводится размерность одномерного массива A(N) и его элементы. Вывести на экран сумму составных чисел среди элементов массива.
Вот программка:

Исходный код

var
i,k,s,n:integer;
a:array[1..n] of integer;
begin
readln(n);
i:=1;
s:=0;
for i = 1 to n do
begin k:=0;
k:=a(i)mod2;
if k=0 then goto m1
else k:=a(i)mod3;
if k=0 then goto m1
else k:=a(i)mod5;
if k=0 then goto m1
else k:=a(i)mod7;
if k=0 then goto m1;
m1: s:=s+a(i);
end;
writeln (s);
end.

Теги !

Но она даже не компилируется (в месте, отмеченном красным цветом)...
Как думаете, почему? и вообще, как она (программка)? действенная?

Сообщение отредактировано: klem4 - 13.03.2006 18:40

[volvo]

Как думаете, почему?

Потому, что ты пытаешься задать размер массива через переменную, а должна быть - константа!

const n_max = 100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
...

Дальше - без изменений...

[Гость]

Спасибо большое) я бы и не догадалась...
Теперь он не компелирует в следующем месте...

Исходный код

const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
i:=1;
s:=0;
for i = 1 to n do
begin k:=0;
k:=a[i]mod2;
if k=0 then goto m1
else k:=a[i]mod3;
if k=0 then goto m1
else k:=a[i]mod5;
if k=0 then goto m1
else k:=a[i]mod7;
if k=0 then goto m1;
m1: s:=s+a[i];
end;
writeln (s);
end.

Теги !

пишет, что там должна быть точка с запятой... (

Сообщение отредактировано: klem4 - 13.03.2006 18:40

[мисс_граффити]

 for i:= 1 to n do

двоеточие забыли

k:=a[i] mod 2;

Пробелы.

В следующий раз будет ругаться на m1...
а вообще лучше бы без goto обойтись...

[volvo]

klem4, ТЕГИ это прекрасно, но попробуй теперь прочесть обе эти программы!

[klem4]

Хм действительно с pascоde какие-то проблемы тут ... codebox вроде нормально

[amebka]

Спасибо большое ... программа скомпилировалась, но все равно не работает...
конечный вариант выглядит так...

 
var
i,k,s,n:integer;
a:array[1..n] of integer;
begin
readln(n);
i:=1; 
s:=0;
for i: = 1 to n do
begin k:=0;
k:=a(i) mod 2;
if k=0 then s:=s+a(i)
else k:=a(i) mod 3;
if k=0 then s:=s+a(i)
else k:=a(i) mod 5;
if k=0 then s:=s+a(i)
else k:=a(i) mod 7;
if k=0 then s:=s+a(i);
end;
writeln (s);
end.

Может, кто-нибудь сможет мне помочь?

[volvo]

Давай ты не будешь врать, ОК?

var
  i,k,s,n:integer;
  a:array[1..n] of integer;

Это - не будет компилироваться ни при каких условиях...

Почему - см. сообщение №2

[amebka]

Это - не будет компилироваться ни при каких условиях...

Извиняюсь ... моя невнимательность
вроде так... (уже не уверена)...

 const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
i:=1; 
s:=0;
for i: = 1 to n do
begin k:=0;
k:=a(i) mod 2;
if k=0 then s:=s+a(i)
else k:=a(i) mod 3;
if k=0 then s:=s+a(i)
else k:=a(i) mod 5;
if k=0 then s:=s+a(i)
else k:=a(i) mod 7;
if k=0 then s:=s+a(i);
end;
writeln (s);
end.

[volvo]

вроде так... (уже не уверена)...

Правильно, что не уверена... Откомпилируй программу, потом пришлешь полученный вариант... Компилятором работать, я думаю, ни у кого желания нет...

k:=a(i) mod 2;

тоже не будет компилироваться. Ибо скобки не те... Квадратные нужны.

[amebka]

const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
i:=1; 
s:=0;
for i: = 1 to n do
begin k:=0;
k:=a[i] mod 2;
if k=0 then s:=s+a[i]
else k:=a[i] mod 3;
if k=0 then s:=s+a[i]
else k:=a[i] mod 5;
if k=0 then s:=s+a[i]
else k:=a[i] mod 7;
if k=0 then s:=s+a[i];
end;
writeln (s);
end.

Извиняюсь, конечно, за такое количество ошибок... просто я не умею ее из паскаля копировать (пришлось перебивать вручную, поэтому и ляпов столько)...

[Ozzя]

for i: = 1 to n do
Это тоже не будет компилироваться. Между : и = пробел.

просто я не умею ее из паскаля копировать

1. Открыть pas-файл блокнотом.
2. Щелкнуть кнопку системного меню, если bp запущен в оконном режиме. Изменить -> Выделить -> Выделить программу -> Нажать enter -> Вставить сюда

[amebka]

const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
i:=1; s:=0;
for i:=1 to n do
begin
k:=0;
k:=a[i] mod 2;
if k=0 then  s:=s+a[i]
else  k:=a[i] mod 3;
if k=0 then  s:=s+a[i]
else  k:=a[i] mod 5;
if k=0 then   s:=s+a[i]
else  k:=a[i] mod 7;
if k=0 then   s:=s+a[i];
end;
writeln (s);
end.

у меня она компилируется, но не работает... я не понимаю почему...

[Ozzя]

amebka
Но мне проще написать заново, чем в чужом коде разбираться.

Функция isNotPrime взята из ФАК и переделана. Определяет составное число или нет

Const
  n=5;
var
  i,s : Integer;
  a: array [1..N] of Integer;

function isNotPrime(X: word): boolean;
  var  i: integer;
Begin
  isNotPrime:=true;
  for i:=2 to trunc(sqrt(x)) do
	if x mod i = 0 then Exit;
  isNotPrime:=false
End;

begin
  for i:=1 to N do
	readln(a[i]);
  s:=0;
  for i:=1 to N do
	if isNotPrime(a[i]) then
	  s:=s+a[i];
  Writeln('Summa = ',s);
end.

[amebka]

да... мне тоже в чужом коде тяжело разбираться.... ( и не работает он у меня что-то (( я ввожу числа массива и ничего не происходит.... (( может, я чего-то не понимаю???
после компиляции нажимаю ctrl+F9 ввожу числа... они вводятся и вводятся... как долго это должно продолжаться, когда массив всего из 5 чисел?

[Ozzя]

Вводишь одно число, затем Enter.
Так делала?

Сообщение отредактировано: Ozzя - 14.03.2006 16:42

[amebka]

Вводишь одно число, затем Enter.
Так делала?

Спасибо, без Enter делала - через пробел... ща исправлюсь... а заодно и в своей программе покопаюсь... может заработает...

[Ozzя]

через пробел - это в Basic'е.

может заработает...

Возможно

[amebka]

Нет, не заработала, хотя я и не понимаю, в чем дело
вот программа:

 const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
readln(a[i]);
i:=1; s:=0;
for i:=1 to n do
 begin
 k:=0;
 k:=a[i] mod 2;
 if k=0 then  s:=s+a[i]
		else  k:=a[i] mod 3;
			  if k=0 then  s:=s+a[i]
			  else  k:=a[i] mod 5;
					if k=0 then   s:=s+a[i]
						   else  k:=a[i] mod 7;
								 if k=0 then   s:=s+a[i];
 end;
writeln (s);
end.

Опишу, что моя программа должна была бы делать... хотя и не делает
Начиная с begin...
вводим размер массива (n), который не должен превышать 100
вводим данные в массив
начинается цикл от первого элемента массива до n-го
попадая в цикл кажый элемент проверяется на наличие остатка от деления на числа 2, 3, 5, 7 - это те числа, на которые могут делиться составные числа, кроме как на себя и единицу
если при каком-то из делений остаток (k) равен нулю (т.е. данный элемент массива делится на 2, 3, 5 или 7 без остатка), то к сумме (s), которая изначально равна нулю, прибавляется данный элемент массива
в конце должна вывестись сумма всех составных чисел данного массива...

[Ozzя]

вводим данные в массив

Не вводим!

Код

for i:=1 to n <- забыла!
  readln(a[i]);

Сообщение отредактировано: Ozzя - 14.03.2006 17:07