Программа в Turbo Pascal

[ОгненныйВолк]

Программа запрашивает имя файла. Если количество компонентов файла кратно 3, то вывести на экран все суммы каждых 3-х компонентов. Если количество компонентов файла четное, т о вывести на экран все суммы каждой пары компонентов.


Не получается у меня эту программу сделать

[Arigato]

Что такое компонента файла?

[CodeExpert]

Компонента файла==элемент файла==строка) Просто посчитайте с помощью функции filesize(var X):longint кол-во и потом уже проверяйте на кратность ну и что там по заданию у вас

[Arigato]

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

[CodeExpert]

ну тогда можно циклом пройти с условием не конца файла по всем строкам и счетчик завести который покажет нам потом кол-во компонент(строк) файла, но хотя да вы правы, компоненты эт типизированный файл...

[ОгненныйВолк]

Наверное именно из-за условия я и не разобрался... Ладно что-нибудь сам придумаю, спасибо все равно (хотя если кто то поймет, было бы неплохо )

Программа заполняет случайными числами одномерный массива А [Iх13], матрицу В [4x5]и запрашивает у пользователя номер столбца q. Вывести на экран все элементы массива А, которые меньше, чем максимальный элемент столбца матрицы В, номер которого задается значением q.

Даны целочисленные матрицы А(mxn) и В(mxn). Программа находит количество четных отрицательных элементов в матрице С=А+В , выводит на экран матрицу С и найденное количество.

С матрицами я не в ладах, пропустил объяснения... Эти три задачи не могу решить уже несколько дней >_<

[Филантроп]

Эти три задачи не могу решить уже несколько дней

а где попытки то?

Программа заполняет случайными числами одномерный массива А [Iх13], матрицу В [4x5]и запрашивает у пользователя номер столбца q. Вывести на экран все элементы массива А, которые меньше, чем максимальный элемент столбца матрицы В, номер которого задается значением q.

 var a:array[1..13] of integer;
      b:array[1..4,1..5] of integer;
	  i,q,j,max:integer;
begin
Randomize;
Writeln('Matrix B');
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
b[i,j]:=random(20);
write(b[i,j]:4);
end;
writeln;
end;
Writeln('Array A')
For i:=1 to 13 do 
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
writeln('q=');
readln(q);
max:=b[1,q];
for i:=2 to 4 do
if b[i,q]>max then max:=b[i,q];
writeln('max=',max);
for i:=1 to 13 do
if a[i]<max then Write(a[i]:4);
readln;
end.

Даны целочисленные матрицы А(mxn) и В(mxn). Программа находит количество четных отрицательных элементов в матрице С=А+В , выводит на экран матрицу С и найденное количество.

var 
    a,b,c:array[1..100,1..100] of integer;
    i,q,j,m,n:integer;
begin
Randomize;
Writeln('n=');
Readln(n);
Writeln('m=');
Readln(m);
Writeln('Matrix A');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
Writeln('Matrix B');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(20)-10;
write(b[i,j]:4);
end;
writeln;
end;
q:=0;
Writeln('Matrix C');
for i:=1 to n do
begin
for j:=1 to m do
begin
C[i,j]:=A[i,j]+B[i,j];
if (c[i,j]<0) and (abs(c[i,j]) mod 2=0) then inc(q);
write(C[i,j]:4);
end;
writeln;
end;
Writeln('count=',q:4);
readln;
end.

Если количество компонентов файла кратно 3, то вывести на экран все суммы каждых 3-х компонентов. Если количество компонентов файла четное, т о вывести на экран все суммы каждой пары компонентов.

А если выполняются оба условия?

[ОгненныйВолк]

Вывести оба, насколько я понял.

Эта задача мне очень срочно нужна

=/ Идей нет никаких =/