Помогите с задачами по Pascal

Тема в разделе "Delphi - FAQ", создана пользователем playone, 26 май 2005.

Статус темы:
Закрыта.
  1. playone

    playone Гость

    Помогите дорогие мои решить сл. задачи. Скоро сессия а я в полной жопе с остальными предметами и на программирование не остальсь времени.
    ----------------------------------------
    1)Дана матрица R(9,9). Найти найменьший элемент в каждой строке и записать его на месте первого элемента строки. Вывести исходную и полученною матрицу.
    ----------------------------------------
    2)Дана строка состоящая из русских слов, разделённых пробелами(с одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и тойже буквой и содержащие букву "А".
    ----------------------------------------
    3)Из файла F в файл G записать данные ввиде: eсли число положительное в F то в G записывается "2", если отрицательное то "1".
    ----------------------------------------
    4)При поможи типизированиого файла. Дана база дынных:
    -Название кружка
    -Преподователь
    -Кол-во человек
    -Возраст (средний)
    Организавать поиск по возрасту с видом:
    -Название кружка
    -Фамилия (Препода)
    -Кол-во человек
    ----------------------------------------
    5)Сделать при поможи графиков часы
     
  2. Guest_alex

    Guest_alex Гость

    Где взять игру "Спички" на TurboPascal :) :)
     
  3. Barmutik

    Barmutik Гость

    Пора открывать бюро платных услуг по написанию задач для сдачи сессии :)
     
  4. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
  5. Barmutik

    Barmutik Гость

    Вот спасибо подсказал :) :(
     
  6. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Barmutik
    как почетному члену твои темы даже закреплены будут :)
     
  7. Aliaksandar

    Aliaksandar Гость

    Ну я не знаю если правильно понял то 3 задача вообще лёгкая как и остальные в принципи:):):)
    Кароч эта прога если числа в файле F идут каждое число в новой строке
    Код (Text):
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var
    F,G:TextFile;
    StrCount:string;
    function Chet(a:integer):integer;
    begin
    If a mod 2=0 then result:=2;
    If a mod 2<>0 then result:=1;
    If a=0 then result:=0;
    end;
    begin
    AssignFile(F,'F.txt');
    AssignFile(G,'G.txt');
    Reset(F);
    Rewrite(G);
    While not Eof(F) do
    begin
     Readln(F,StrCount);
     Writeln(G,IntToStr(Chet(StrToInt(StrCount))));
    end;
    CloseFile(F);
    CloseFile(G);
    end.
     {Alex RedWoodLan 2005}
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей