Задачи по Делфи

[marat19861986]

Прошу помочь сделать три несложные задачи на Делфи ... Плачу 300 руб в счёт благодарности =) Могу закинуть на Ваш счёт мобильного. Сам я не соображаю в программировании..мне очень сложно..

Задача 1: Вводим n чисел. Чётные пишем в текстовый файл в строку. Нечётные выводим на экран в столбик.
Задача 2: Есть 2-х уровневый массив чисел 1234 (верхняя строчка) и
5678 (нижняя строчка). Нужно чтобы после запуска программы, верхняя и нижняя строчка менялись местами: 5678 (верхняя строчка), 1234 (нижняя строчка) . Во вложении есть уже программа её надо переделать именно под эти числа и указанное условие.
Задача 3: Тоже что и вторая задача, только надо чтобы при запуске вышла надпись "введите первые 4 числа массива". И потом вторая строчка "введите 4 последние числа массива". Результат программы такой же как и во второй задаче.

Требования:
1.текст прошу снабжать комментариями потому как надо потом преподу объяснить)) Комментарии только в ключевых местах хотя бы))
2. Нужно использовать как эталон вложенную программу. Просто переделать под условие каждой задачи..

почта для связи: mr27001@gmail.com

[Serge_Bliznykov]

задача 2.

program Project2;

{$APPTYPE CONSOLE}

uses   
  SysUtils;

const 
  n=2;
  m=4;
var j,i,k:integer;
      mas:array [1..n,1..m] of integer;
begin
  randomize;
  writeln('matrica A:');
  k:=0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      Inc(k);
      mas[i,j]:=k;
      write(mas[i,j],' ');
    end;
    writeln;
  end;

  for j := 1 to m do
  begin
    k:=mas[1,j];
    mas[1,j]:=mas[2,j];
    mas[2,j]:=k;
  end;

  writeln('matrica B:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j],' ');
    writeln;
  end;
  readln;
end.

задача 3.

program Project3;

{$APPTYPE CONSOLE}

uses   
  SysUtils;

const 
  n=2;
  m=4;
var j,i,k:integer;
      mas:array [1..n,1..m] of integer;
begin
  writeln('matrica A:');
  for i := 1 to n do
  begin
    Write('Введите в строку ',m,' чисел, через пробел:');
    for j := 1 to m do
         Read(mas[i,j]);
    ReadLn;
  end;

  for j := 1 to m do
  begin
    k:=mas[1,j];
    mas[1,j]:=mas[2,j];
    mas[2,j]:=k;
  end;

  writeln('matrica B:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i,j],' ');
    writeln;
  end;
  readln;
end.

p.s. Внимание! Писал прямо в браузере, код не проверял.
если что непонятно - спрашивайте.

[Serge_Bliznykov]

ну и первая задача до кучи:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, n : integer;
  f    : TextFile;
  mas  : array of integer;
begin
  write('Enter N: ');
  ReadLn(n);

  SetLength(mas, n);
  for i := 0 to n-1 do
    Read(mas[i]);
  ReadLn;

  WriteLn;
  WriteLn('result:');
  AssignFile(f, 'D:\MyFile.txt');
  Rewrite(f);
  for i := 0 to n-1 do
  begin
    if odd(mas[i])
      then WriteLn(mas[i]) // нечётные вывести на экран
      else Write(f, mas[i],' ');
  end;
  if n>0 then
     WriteLn(f);
  CloseFile(f);

  readln;
end.

[Avazart]

А чего во фрилансе раздают "бесплатные ответы" ?

[Serge_Bliznykov]

Avazart, извините, тему кто-то из модераторов перенёс.
когда я писал, она была в обычном разделе!

[marat19861986]

2 и 3 задачи работают. А первая как то неккоретно работает. 1 раз сработала записала файл на диск D и на экран вывела. Но не с первого раза (скрин прилагаю...)

[Aleksandr H.]

Ничего себе ты чисел собрался вводить О_О http://www.delphibasics.ru/MaxInt.php

[marat19861986]

Выше отписал о проблеме...

[Serge_Bliznykov]

Выше отписал о проблеме...

это где? Там, где скриншот?
там, где Вас просят ввести число n (количество чисел) и Вы вводите 65 миллиардов 786 миллионов и т.д.?
Вы реально собрались вводить более 65 миллиардов чисел?!
Не запаритесь? Времени хватит? Если вводить по миллиону чисел в секунду, то часиков за 18 справитесь. успеете 1000000 в секунду вводить?!
правда, Delphi не хватит разрядности и памяти, но это же неважно, да?!


а если серьёзно.
Вашу тему перенесли в раздел платной помощи (Фриланс).
извините, но здесь обсуждение и решение задач запрещено.
Договаривайтесь с кем-нибудь, платите свои деньги, Вам всё сделают и объяснят.

Я пытался помочь.

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net