Три задачи на delphi.

[Refon_S]

Здравствуйте ещё раз, это снова я. Ситуация такова, что к четвергу мне нужно принести три следующих рабочих программы, а долгов много и по остальным предметам, и сил уже категорически не хватает. Помогите, пожалуйста, а я уж потом помогу, чем смогу...

P.S: Пишется всё в консольном режиме, если что.

1. Решить задачу, используя процедуру или функцию. Выбор обосновать.

Дана символьная матрица размера A(n, m). Преобразовать ее таким образом, чтобы элементы каждой нечетной строки расположились в обратном порядке. Новую матрицу не заводить.

2. Файловая система.

Создать файл F, содержащий целые числа. Создать новый файл G, состоящий из сумм каждой нечетной компоненты и следующей за ней компонентой из файла F.

3. Динамические структуры данных. Списки.

С клавиатуры вводятся две последовательности целых чисел, упорядоченные по возрастанию и разделенные нулем. Вывести все числа в порядке возрастания.

[Refon_S]

Поднимаю тему, просто очень срочно нужно.

[Mad_Cat]

1

var
A:array[1..100,1..100] of char;
i,j,n,m:integer;c:char;
procedure swap(var x,y:char);
var c:char;
begin
c:=x;x:=y;y:=c;
end;
begin
randomize;
write('n=');readln(n);
write('m=');readln(m);
For i:=1 to n do begin
For j:=1 to m do
begin
a[i,j]:=chr(random(256));
write(a[i,j],' ');
end;
writeln;
end;
Writeln('=====================');
i:=1;
while i<=n do begin
For j:=1 to m div 2 do
begin
swap(a[i,j],a[i,m-j+1]);
end;
inc(i,2);
end;
For i:=1 to n do begin
For j:=1 to m do
begin
write(a[i,j],' ');
end;
writeln;
end;
readln;
end.

[ByAlex]

Вот первая -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  CharArr:array[1..50,1..50] of Char;
  n,m,i,j:Integer;
  temp:Char;
procedure MasOut;
begin
  writeln('Massive [',n,',',m,']:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(CharArr[i,j],' ');
    writeln;
  end;
  Writeln;
end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Vvedite n = ');
  Readln(n);
  write('Vvedite m = ');
  Readln(m);
  writeln('Vvedite massive [',n,',',m,']:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('CharArr[',i,',',j,'] = ');
      readln(CharArr[i,j]);
    end;
  writeln;
  MasOut;
  for i:=1 to n do
  begin
    if Odd(i) then
    begin
      for j:=1 to (m div 2) do
      begin
        temp:=CharArr[i,j];
        CharArr[i,j]:=CharArr[i,(m+1)-j];
        CharArr[i,(m+1)-j]:=temp;
      end;
    end;
  end;
  MasOut;
  Readln;
end.

Блин, меня уже опередили!

[Refon_S]

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

[Refon_S]

"Апаю" тему.

[Refon_S]

Похоже, никто не может помочь с решением последней задачи, но надежда умирает последней...

[Xeonc]

Сообщение от Refon_S

Похоже, никто не может помочь с решением последней задачи, но надежда умирает последней...

Напишите в icq, обсудим

[Rififi]

Refon_S

Похоже, никто не может помочь с решением последней задачи, но надежда умирает последней...

Дело в том, что у вас некоторая путаница в понятиях. Под словом "помощь" подразумевается что вы как-то пытаетесь решить вашу проблему и у вас что-то не получается. Ничего из этого в вашем случае не наблюдается. Стало быть то, что вам нужно, называется не помощь, а оплаченная работа по найму.