Как организовать посимвольное считывание данных из файла (TurboPascal)? - Turbo Pascal

  1. Надо считать файл посимвольно и занести в двумерный массив (матрицу).


textual

Код:

s:='';
i:=1;
j:=1;
While not eof(f1) do
begin
  read(f1,c);
  while c<>' ' do
   begin
    if c<>'.' then
    s:=s+c;
    else begin m[i,j]:=s;
    i:=i+1;
    j:=1;
    end;
    read(f1,c);
   end;
   m[i,j]:=s;
  s:='';
  j:=j+1;
end.


Похожие ответы
  1. 1. Организовать мерцание или мигание текста в текстовом режиме. Текст: "Привет!" 2. Организовать движение текста с рамкой по диагонали в графическом режиме. Текст "паскаль" 3. Организовать управление расположением текста на экране. Текст "Турбо Паскаль" Все программы написать с помощью пользовательских модулей, каждый модуль должен быть в отдельном окне. Вызов и запуск должен осуществляться в одной программе через следующее меню: Мерцание (мигание) текста в текстовом режиме. Движение текста в графическом режиме. Управление текстом.

  1. Задание. Даны ai(i=1.20), cj(j=1.60). Организовать перенос массива ai в cj по схеме c1=a1; c4=a2; c7=a3; …. Напечатать заголовок, затем оба массива в произвольной форме. Помогите пожалуйста.

  1. 6. Используя ООП, определить объект СТУДЕНТ. Организовать ввод и вывод данных объекта СТУДЕНТ.

  1. Можно ли организовать ввод разрядности массива с клавиатуры? Что-то вроде этого:

  1. Заполнить массив У(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения первой половины элементов массива. Присвоить указателю адрес 9-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на значение 5-го элемента, уменьшенное на 0.02. Напечатать его новое значение.

  1. Даны 2 массива по 20 чисел в каждом. Задание 1)Организовать третий массив из 40 элементов в котором поочередно идут элементы из 1 и 2 массива. Задание 2)Организовать массив из 20 элементов каждый элемент вычисляется сумма 1 и сумма последнего( из первого массива),сумма второго и сумма последнего(из второго массива). Кто сможет выручите.

  1. организовать файл записей HOSPITAL, содержащих следующие поля: фамилия,имя,отчество, номер участка, год рождения, адрес. написать программу, выполняющую следующие действия: ввод с клавиатуры данных о 4 пациентах, вывод на экран фамилий пациентов, проживающих на участке, номер которого введен с клавиатуры.

  1. Организовать файл записей HOSPITAL, содержащих следующие поля: фамилия, имя, отчество, номер участка, год рождения, адрес. Написать программу, выполняющую следующие действия: Ввод с клавиатуры данных о 4 пациентах, вывод на экран фамилий пациентов, проживающих на участке, номер которого введён с клавиатуры.