Разработка программ, связанных с формированием одномерных массивов в delphi

[Орлов Никита]

Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из элементов массива Х, кратных 3. Если таковых не окажется, вывести фразу «Элементов, кратных 3, нет». Полученный массив напечатать в строчку.
X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}.

[Serge_Bliznykov]

показывайте, как задаёте исходный массив X

а вообще, по сути задание ЭЛЕМЕНТАРНОЕ.

  j := 0;
  for i:=1 to 10 do 
    if (X[i] mod 3) = 0 then begin
       inc(j);
       Y[j] := X[i]
    end;

  if j=0 then // вывести "таких элементов нет"
  else 
     for i:=1 to j do
          // вывести элемент Y[i]

[Stilet]

var y:array of double;i:integer;
...
begin
 for i:=low(x) to high(x) do 
  if (x[i] mod 3)=0 then begin SetLength(y,Length(y)+1); y[high(y)]:=x[i];end;
if length(y)=0 then writeln('Элементов, кратных 3, нет') else
 for i:=low(y) to high(y) do writeln(y[i]:10:2);
...
end;

Подходит предложенная схема?

[Serge_Bliznykov]

случайно обратил внимание на

X = {12.3, 7, 9.5, 27, 91.2, 9, 21.4, 111, 3.2, 51}.

тому, кто придумал такой пример - однозначно, НЕЗАЧЁТ!
Для вещественных чисел отсутствует понятие кратности!
(см., например, "Делимость" на вики). Это определение относится только к ЦЕЛЫМ числам.

ну, даже если подумать логически, что значит, число кратно 3-м ?
Это значит, что число делится на 3 БЕЗ ОСТАТКА.
0.3 делится на три без остатка?
короче, автора задачи (или того, что написал пример содержимого массива X) - в топку!


Stilet, компилятор Паскаля\Delphi не даст скомпилировать строчку (x[i] mod 3), если массив X - вещественного типа!
например,

  if (9.5 mod 3)>0 then begin

ошибка:
[Pascal Error] Unit4.pas(29): E2015 Operator not applicable to this operand type

[Орлов Никита]

В том-то и дело...я писал программу, а компьютер вечно выдавал ошибку про операнды...я не понимал в чем дело...
Спасибо Вам за помощь
Массив составлял преподаватель по информатике:D
Я в шоке)

[Stilet]

тому, кто придумал такой пример - однозначно, НЕЗАЧЁТ!

Нет, дружище. Массив верный. Проблема в наборщике - он случайно точки на запятые попутал. Возможно даже это сканированный вариант, с плохим распознаванием, я сталкивался с такими методичками.

Массив составлял преподаватель по информатике:D

Вот у него и поинтересуйся что он набрал.

[Serge_Bliznykov]

Нет, дружище. Массив верный. Проблема в наборщике - он случайно точки на запятые попутал.

это было хорошо, если бы это было так...
к сожалению, это не так!

X = (x1, x2, …, x10).

массив из десяти элементов. А если бы Ваше предположение было верным, массив получается из 15 элементов..
не-не.. в топку!

[Stilet]

Друже, ты даже не представляешь как иногда в методичках тупые преподы могу ошибать студентов
Я такого насмотрелся, что вполне поверю в очепятки и здесь. Размерность массива может быть приведена как пример (да да бывали и такие случаи на моей памяти...)