Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Zavet
0 / 0 / 0
Регистрация: 01.10.2012
Сообщений: 32
#1

переделать так что бы данные выводились в типизированный файл

08.10.2012, 03:58. Просмотров 262. Ответов 0
Метки нет (Все метки)

помогите вот эту задачку переделать так что бы данные выводились в типизированный файл, из типизированного файла в текстовый, при этом нужно использовать TPU модуль на процедуры

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
46
47
48
49
50
51
52
53
54
55
56
57
58
uses
  crt;
 
type
  PList = ^TList;
  TList = record
    a: integer;
    pred, next: PList;
  end;
 
var
  head: PList;
  n, d, i: integer;
 
{Формирование списка}
procedure formlist(var head: plist; dob: integer);
var
  kur: plist;
begin
  new(kur);
  kur^.next := head;
  kur^.a := dob;
  head := kur;
end;
 
{Поиск совпадающих элементов}
procedure search(head: plist );
var z1: plist;
begin
 while head <> nil do
  begin
   z1:=head;
   while z1 <> nil do
    begin
     if (head^.a = z1^.a) and (head<>z1) then
      begin
       writeln('Yes');
       exit;
      end;
     z1 := z1^.next;
    end;
   head := head^.next;
  end;
 writeln('No');
end;
 
begin
  clrscr;
  write('Введите количество элементов списка: ');
  readln(n);
  for i := 1 to n do
  begin
    readln(d);
    FormList(head, d);
  end;
  search(head);
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 03:58
Ответы с готовыми решениями:

Переделать файл под типизированный
uses crt; type stud=record fam,grp:string; end; ...

Записать данные в типизированный файл
Здравствуйте! Создаётся массив записей: for i:=1 to 30 do begin ...

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

Gb записи в типизированный файл создается файл огромного размера больше 2Гб что делать?
Доброе утро, в программе создаю файл с данными о студентах(лабараторная работа)...

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 03:58

Добавлять данные в типизированный файл через графическое меню
как добовлять данные в Типизированный файл через графическое меню? Добавлено...

Как изменить программу, чтобы данные записывались в типизированный файл
Запись имеет вид: название издания, газеты или журнала, стоимость одного...

Как посмотреть то, что записывается в типизированный файл
Ребят подскажите, первый раз работаю с типизированными файлами, и хочу узнать...


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

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

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