Задача на массив Опции

[Romka]

Дан массив С(4,4) состоящий из вещественных элементов. Сделать вывод в виде матрицы, заменить вещественные элементы. Для ввода данных элементов применить оператор Readln. Составить схему алгоритма к программе.
Помогите решить пожалуйста, буду благодарен за помощь

[volvo]

Читай здесь: FAQ: Ввод и вывод матрицы

[Romka]

volvo, я матрицу вывел,но не могу заменить элементами,как это сделать?

[klem4]

volvo, я матрицу вывел,но не могу заменить элементами,как это сделать?

у тебя написано "заменить вещественные элементы", заменить на что ?

а делается например так :

for i:=1 to n do
 for j:=1 to m do
  if x[i,j]<>trunc(x[i,j]) then //число с дробной частью и делай с ним что нужно

[volvo]

Дан массив С(4,4) состоящий из вещественных элементов.

Они в принципе все вещественные... Так что с ними делать-то?

klem4, есть еще

Frac(x[i, i]) <> 0

, гораздо удобнее... ;)

[Romka]

klem4 заменить вещественные элементы матрицы.
Сможешь всю программу сделать,очень нужно :molitva:

[klem4]

2volvo , ok возьму на заметку ;)
2Romka Я тебя еще раз спрашиваю, заменить на Ч_Т_О ? на нули или на единички или поменять их знак что с ними сделать то ?

[Romka]

klem4 сделать замену любыми цыфрами

[klem4]

ты сказал что ввод организовал, все что тебе осталось сделать, вставить вот этот кусок :

for i:=1 to n do
 for j:=1 to m do
  if frac(x[i,j])<>0 then
   x[i,j]:=0 // или любое другое число

[Romka]

klem4 что-то у меня программа не работает
Как сделать вывод в виде матриц

[klem4]

klem4  что-то у меня программа не работает
Как сделать вывод в виде матриц

хмм я думаю ошибка в 12 строке ... а если серьезно, так как у нас в последнее время с телепатами на форуме хреново, то приводи пожалуйста код

вывод в виде матрицы :

for i:=1 to n do begin
    writeln; 
    for j:=1 to m do
     write(x[i,j]:5:1,'  ');
end;

[volvo]

Romka, я кажется давал ссылку на FAQ, где описаны ввод и вывод матриц. В чем опять проблема? ЗА ТЕБЯ это никто не будет делать полностью, пойми это, наконец !!!