Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 01.05.2013
Сообщений: 19
1

Организуйте вывод информации из файла по вводимому с клавиатуры номеру записи

01.05.2013, 22:03. Просмотров 1845. Ответов 1
Метки нет (Все метки)


Напишите программу, организующую хранение в файле нескольких (до 5) записей о ваших друзьях. Организуйте вывод информации по вводимому с клавиатуры номеру записи. Например:
Номер записи: 3
Фамилия: Иванов
Имя: Иван
Отчество: Иванович
Год рождения: 1977
Месяц рождения: 12
Число рождения: 18
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.05.2013, 22:03
Ответы с готовыми решениями:

Вывести строку из файла по вводимому с клавиатуры номеру
У меня есть задание, ввести строки в текстовый файл, что я и сделал, и второе задание, это вывести...

Удаление записи из БД по вводимому номеру
Всем привет, Кто подскажет , какой код добавить, чтобы при в ведение в поле : "What would u like to...

Создание файла. Организуйте вывод на экран монитора номер телефона по введенной с клавиатуры фамилии
Создайте файл содержащий следующие поля 1)Номер 2)Фамилию 3)Телефон Организуйте вывод на экран...

По вводимому с клавиатуры целому числу определить сколько различных цифр используется в его записи
Собственно, задача: По вводимому с клавиатуры целому числу определить сколько различных цифр...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
02.05.2013, 13:09 2
Лучший ответ Сообщение было отмечено MORGAN100 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
 
type
  TFriends = record
    Count : integer;
    Surname : string;
    Name : string;
    Patronymic : string;
    Year : integer;
    Month : integer;
    Number : integer;
  end;
  
var
  f : text;
  Friend : array [1..5] of TFriends;
  i, n, num: integer;
 
begin
  Assign(f, 'f.txt');
  Reset(f);
  Readln(f, n);
  i := 1;
  if n <= 5 then
    begin
      while not (EoF(f)) do
        begin
          Readln(f, Friend[i].Count);
          Readln(f, Friend[i].Surname);
          Readln(f, Friend[i].Name);
          Readln(f, Friend[i].Patronymic);
          Readln(f, Friend[i].Year);
          Readln(f, Friend[i].Month);
          Readln(f, Friend[i].Number);
          inc(i);
        end;
      Close(f);
    end;
  Repeat
    Write('Номер записи для вывода: '); 
    Readln(num);
  until num in [1..n];
  Writeln(Friend[num].Surname, ' ', Friend[num].Name, ' ', Friend[num].Patronymic, ' ', Friend[num].Number, '.', Friend[num].Month, '.', Friend[num].Year);
  Readln;
end.
Пример файла:f.txt
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.05.2013, 13:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Организуйте вывод значений компонент записи упорядочить список
Помогите с задачкой пожалуйста --&gt; Организуйте вывод значений компонент записи упорядочить список...

Вывод информации по заданному номеру и дате
Всем доброго времени суток! Имеется следующая задача: Составить программу, которая содержит...

Вывод информации по заданному номеру строки
Добрый день, не пойму в чем ошибка моя. Вот код Form16.ADOQuery1.Active:=false;...

По вводимому числу от 1 до 11 (номеру класса) выдать соответствующее сообщение
написать программу, которая по водимому числу от 1 до 11 (номеру класса) выдает соответствующее...

По вводимому числу от 1 до 5 (номеру курса) выдать соответствующее приветствие
Написать программу, которая по вводимому числу от 1 до 5 (номеру курса) выдает соответствующее...

Программа выводит число и месяц по вводимому номеру порядкового дня: ошибка в программе
Программа выводит число и месяц по вводимому номеру порядкового дня. Этот код программы со...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.