+ Ответить в теме
Показано с 1 по 2 из 2

Тема: Задача по PASCAl. Помогите сделать.Помогите сделать из внешнего файла !!!

  1. #1
    coder maia is on a distinguished road
    Регистрация
    06.11.2008
    Возраст
    29
    Сообщений
    15
    Вес репутации
    11

    Exclamation Задача по PASCAl. Помогите сделать.Помогите сделать из внешнего файла !!!

    Помогите сделать из внешнего файла !!!


    const
    n = 3; m = 4;
    var
    mas: array[1..n, 1..m] of real;
    i, j, k: integer;
    sr: real;
    begin
    for j := 1 to m do
    begin
    for i := 1 to n do
    begin
    write('mas[', i, ',', j, '] = ');
    readln(mas[i, j])
    end;
    if mas[i, 1] > mas[i, m] then k := i;
    writeln
    end;

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

    writeln;
    for i := 1 to m do sr := sr + mas[i, k];
    sr := sr / n;

    for i := 1 to n do
    begin
    for j := 1 to m do
    begin
    if j <> k then mas[i, j] := mas[i, j] - sr;
    write(mas[i, j]:6:2)
    end;
    writeln
    end;
    readln
    end.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Super Moderator system architect Naeel Maqsudov is a jewel in the rough Naeel Maqsudov is a jewel in the rough Naeel Maqsudov is a jewel in the rough Аватар для Naeel Maqsudov
    Регистрация
    20.02.2004
    Адрес
    Moscow, Russia
    Возраст
    45
    Сообщений
    2,551
    Вес репутации
    22

    По умолчанию Re: Задача по PASCAl. Помогите сделать.Помогите сделать из внешнего файла !!!

    maia, вы в который уже раз наредкость некорректно описываете условие задачи. Что вам надо сделать? Заменить в приведенной программе ввод с клавиатуры на ввод из файла?
    Формат файла какой должен быть?
    Например так пойдет?

    Код :
    1. ....
    2.   ASSIGN(T, 'c:\somefile.txt');
    3.   RESET(T);
    4.   readln(T,M);
    5.   readln(T,N);
    6.   for j := 1 to m do
    7.   begin
    8.     for i := 1 to n do
    9.     begin
    10.       readln(T,mas[i, j])
    11.     end;
    12.     if mas[i, 1] > mas[i, m] then k := i;
    13.   end;
    14.   close(T);
    15. ....

    в VAR
    переменные:
    T: TEXT;
    mas:array[1..100,1..100] of real;


    Файл должен содерджать числа, по 1 в каждой строке в следующем порядке:
    -----8<----
    M
    N
    mas[1,1]
    mas[2,1]
    ...
    -----8<----


    PS
    Это вместо куска:
    for j := 1 to m do
    begin
    for i := 1 to n do
    begin
    write('mas[', i, ',', j, '] = ');
    readln(mas[i, j])
    end;
    if mas[i, 1] > mas[i, m] then k := i;
    writeln
    end;

+ Ответить в теме

Похожие темы

  1. Задача по PASCAl. Помогите сделать.
    1.Даны шифры трех ГАИ . Определить есть ли среди них заданный . Вывести соответствующее сообщение. 2.Дана матрица . Если на главной диагонали...
    от maia в разделе задачи на Паскале и Delphi
  2. Помогите сделать КИХ фильтр на СИ!
    Респект всем программерам! Помогите на СИ сделать КИХ фильтр третьего порядка, я только начинаю учиться говорить по СИ и не очень понимаю... :( ...
    от Николай89 в разделе задачи на C и C++
  3. Помогите сделать из 2D 3D
    Существует программа, которая решает следующую задачу на плоскости: В зависимости от количества соседних клеток определённого цвета выбранная...
    от Ol_ga в разделе C и C++
  4. помогите сделать
    нужно построить алгоритм по этой задаче...очень срочно!:confused: квадратная матрица, симметричная относительно главной диагонали, задана верхним...
    от t3Rmit в разделе Вопрошайка
  5. !!!Помогите разобраться с совмесной работой Pascal и внешнего ГСЧ!!!
    Хотел поэксперементировать в паскале с генератором случайных чисел, но потом узнал, что там абсолютной случайности нет, и генератор псевдослучайный....
    от Fender в разделе Delphi и Pascal

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения