Создать типизированный файл n действительных чисел.

[technomaster]

Переписать содержимое файла в массив, разместив его в динамической памяти:
Найти номер первого максимального элемента.

[VIK_aka_TOR]

и в чем проблема???... лень или что то не получается.. наработки кидаем...

[technomaster]

не так лень, как не знание этой темы. пропустил, теперь не могу понять. просто ужа в понедельник надо сдать, а то отчисление. эту и ещё 2 программы. если вам не интересно этим заниматься, то попрошу "ткнуть носом" на ссылку, где есть инфа, или примеры таких задач. переделать под себя уже смогу.заранее спасибо

[VIK_aka_TOR]

"ткнуть носом" на ссылку, где есть инфа, или примеры таких задач

у гугла много ссылок... неужели так тяжко погуглить... могу сделать за небольшое вознаграждение все 3 задачки ваши... если что обращайтесь в лс или асю...

[Stilet]

попрошу "ткнуть носом" на ссылку

Ссыль пожалуй не дам, но тебе стоит поискать примеры с BlockRead и GetMem - это для Паскаля, поскольку ты язык не указал.
Или примеры для fread и malloc - Си
Впрочем для Си вот:
http://msdn.microsoft.com/en-us/libr...=VS.71%29.aspx
Это считка файла
http://msdn.microsoft.com/en-us/library/6ewkz86d.aspx
Это запрос памяти для массива.

[technomaster]

прошу прощения, язык паскаль. за подсказку спасибо. мож что посоветуете по таким задачкам?

(1) Создать модуль, описание объектов которого выбрать по варианту указанным преподавателем. Написать программу для демонстрации всех подпрограмм разработанного модуля:
1) Ввести размерность массива с клавиатуры. Элементы массива создаются случайным образом.
2) Вывести элементы массива на экран в прямоугольной форме.
3) Вернуть значение True, если матрица квадратная.
4) Вычислить сумму положительных элементов, находящихся над главной диагональю.


всё на паскале

[VIK_aka_TOR]

1)
1.1 размерность через read или readln.. рандомный ввод a[i,j] := random(50) + 1; - от 1 до 50...
1.2. оформить через цикл

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

1.3

 if m = n then writeln('True');

1.4

for i := 1 to n do
for j := i to m do
 if a[i,j] > 0 then
   sum := sum + a[i,j];

2. отсортировать сперва .. затем выводить....

[technomaster]

вообщем на сколько я понял должно быть так, но паскаль матерится на мои м и н когда я описываю массив, догадуюсь что я это делаю не правильно..

program zad;
var

 i,j,sum:integer;
 n,m:real;
 a:array [ 1..n, 1..m] of integer;
 begin
 writeln('vvestu rozmir massivu');
 readln(n,m);
 for i:=1 to n do
     for j:=1 to m do
     a[i,j]:=random(50)+1;
     end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
if m=n then
writeln ('true');
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
sum:=sum +a[i,j];
end;
writeln('suma = ',sum);
readln;
end.

[VIK_aka_TOR]

n и m integer должны быть... так как нету массвов на 4 с половиной элемента))) + к вашей реализации посоветовал бы использовать динамические массивы... или же заранее объявить массив большой размерности... судя по всему как раз динамические вам и нужны по условию задания..

[technomaster]

подскажете как это сделать? присвоил интеджер, ошибка та же.133:Cannot evaluate this expression.