Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.10.2016, 22:54   #11
O.Lina
Новичок
Джуниор
 
Регистрация: 22.10.2016
Сообщений: 9
По умолчанию

Если только Вам интересно)

Условия выполнения первого задания:

1.Все исходные данные вводятся из входного текстового файла. 2.В выходной текстовый файл выводится как вся введенная информация , так и полученный результат. 3.Задание выполняется в виде 6 различных программ , и только первая программа выполняется без процедур. ....
Таким образом эти 6 вариантов одного и того же задания предстоит выполнить с использованием: 1.Двумерных символьных массивов, текстовых файлов и без процедур;
В моем случае нужно:
{Дан список группы в 10 человек в виде
ФАМИЛИЯ И.О. ГОД_РОЖД. ПРОПИСКА ПОЛ
15 симв. 4 симв. 4 симв. 1 симв. 1 симв.
Данные в одной строке отделяются друг от друга пробелами.
Выделить из них и напечатать трех наиболее молодых петербуржцев мужчин. }

Только все не подсказывайте, я очень хочу сама разобраться в этих дебрях)))
А с файлом, да. ума не приложу что сделать можно((

Последний раз редактировалось O.Lina; 22.10.2016 в 23:01.
O.Lina вне форума Ответить с цитированием
Старый 22.10.2016, 23:07   #12
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Скорее всего лучше читать как-то примерно так:
Код:
  row := 1;
  col := 1;
  while not eof(t) do 
  begin
    read(t, ch);
    if ch = '\r' then
      continue;
    else if ch = '\n' then
    begin
      row := row + 1;
      col := 1;
    end
    else
    begin
      запись ch в массив;
      col := col + 1;
    end;    
  end;
Хотя если везде ровно столько символов, то наверно и так должно работать. Может быть что-то не так посчитали. И while думаю лучше убрать, чтобы например не начало читать снова из-за 11 строки с одним пробелом.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 22.10.2016 в 23:11.
Alex11223 вне форума Ответить с цитированием
Старый 22.10.2016, 23:09   #13
O.Lina
Новичок
Джуниор
 
Регистрация: 22.10.2016
Сообщений: 9
По умолчанию

Огромное-огромное спасибо!! Вы очень-очень помогли! Пойду скорее пробовать!!
O.Lina вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC.NET gogomon93 Помощь студентам 4 01.12.2013 17:56
Pascal ABC Net sarkisova_elena Паскаль, Turbo Pascal, PascalABC.NET 2 07.02.2012 00:40
Pascal ABC.NET BuTaJI Помощь студентам 1 26.04.2011 20:10
Pascal ABC net DiLLe Паскаль, Turbo Pascal, PascalABC.NET 1 08.06.2010 23:20
Pascal ABC .NET no4_sniper Паскаль, Turbo Pascal, PascalABC.NET 0 17.10.2009 00:21