Напечатать первый элемент

@Antinio · Регистрация: 07.05.2010

Студворк — интернет-сервис помощи студентам

Помогите кто может ни как немогу составить, вот условие: Дан типизированный файл, элементами которого являются отдельные символы. Напечатать первый элемент

@yanyk1n · 07.05.2010, 18:34

Pascal
1
2
read(f,ch);
writeln(ch);

@tymanin · 07.05.2010, 18:34

Читаешь файл в массив, выводишь первое значение массива

@yanyk1n · 07.05.2010, 18:35

tymanin, а зачем ради одного элемента всё в массив загонять?

@tymanin · 07.05.2010, 18:38

Давно не писал на пасале, если не ощибаюсь то можно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure ReadFile;
  Begin
  kol:=0;
    Assign(DataFile, 'DB_Data File.txt');//связываем логический файл DataFile с физическим файлом 'DB_Data File.txt'
    Reset(DataFile);
      while not SeekEof(DataFile) do //цикл чтения из файла
        begin
          kol := kol + 1;//кол. элемов +1
          Read(DataFile, arr_val[kol]);
      end;
  Close(DataFile);
  End;

Добавлено через 1 минуту

Сообщение от k1ry4

tymanin, а зачем ради одного элемента всё в массив загонять?

Что бы интереснее было=)

@yanyk1n · 07.05.2010, 18:40

tymanin, похоже, вы меня не поняли. ЗАЧЕМ считывать остальные элементы файла, если требуется только один?

Добавлено через 2 минуты

Сообщение от tymanin

Что бы интереснее было=)

Ну если вы не понимаете такой вещи, как оптимизация кода и рациональное решение, то вы можете хоть через структуры делать. Я посмотрю на вас, если попадётся текстовый файл размером несколько десятков килобайт. И что, каждый элемент будете специально загонять в массив?

@tymanin · 07.05.2010, 21:12

Тфу, это вы меня не поняли, я как помнил так и написал, я ж наверху приписал "давно не писал на паскале"

@Inadequate · 07.05.2010, 21:33

tymanin, SeekEof() предназначена для текстовых файлов, а насколько я понял речь в теме ведется о типизированных.

Сообщение от tymanin

Тфу, это вы меня не поняли, я как помнил так и написал, я ж наверху приписал "давно не писал на паскале"

tymanin, а для чего ты это написАл, когда второй пост является ответом ? (риторический)

Сообщение от tymanin

Что бы интереснее было=)

Есть такая поговорка "Из-за дурной головы ногам покоя нет". Зачем изобретать велосипед в элементарных вещах ? (риторический)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Antinio 0 / 0 / 0 Регистрация: 07.05.2010 Сообщений: 7

	Напечатать первый элемент 07.05.2010, 18:33. Показов 773. Ответов 7 Метки нет (Все метки) Помогите кто может ни как немогу составить, вот условие: Дан типизированный файл, элементами которого являются отдельные символы. Напечатать первый элемент 0

@tymanin 0 / 0 / 1 Регистрация: 18.01.2010 Сообщений: 31
	07.05.2010, 18:34
	Читаешь файл в массив, выводишь первое значение массива 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	07.05.2010, 18:35
	tymanin, а зачем ради одного элемента всё в массив загонять? 0

@tymanin 0 / 0 / 1 Регистрация: 18.01.2010 Сообщений: 31
	07.05.2010, 21:12
	Тфу, это вы меня не поняли, я как помнил так и написал, я ж наверху приписал "давно не писал на паскале" 0