С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Andrux
2 / 2 / 0
Регистрация: 27.12.2008
Сообщений: 42
1

Указатели: поменять местами вторую и седьмую записи

10.11.2009, 14:12. Просмотров 348. Ответов 0
Метки нет (Все метки)

Где процедура Место, пожалуйста напишите, как нужно поменять 2 и 7 записи местами...

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
59
60
61
PROGRAM PRIM22;
 TYPE
  P=^Igra;
   Igra = RECORD
   NAZ:STRING;
   KOL:INTEGER;
   Cena:REAL;
   NEXT:P;
  END;
 VAR
  B: Igra; ZAGOL,TEK1,TEK2: P;
  I,K,N,W: INTEGER; NAZ1: STRING;
  F:FILE OF Igra;
 
 PROCEDURE VVOD;
  VAR
   OK:BOOLEAN;
   S:CHAR;
  BEGIN
   I:=1;
   NEW(ZAGOL);
   TEK1:=ZAGOL;
   OK:=TRUE;
   WHILE OK DO
    BEGIN
     WRITELN(' Nazvanie ',I,' -oi Igri?');
     READLN(TEK1^.NAZ);
     WRITELN(' Ee koli4estvo ');
     READLN(TEK1^.KOL);
     WRITELN(' Zjanr igri');
     READLN(TEK1^.Cena);
     WRITELN(' Estb li eshe igri (Y/N) ?');
     READLN(S);
     IF (S = 'Y') OR (S = 'y') THEN
      BEGIN
       NEW(TEK1^.NEXT);
       TEK1:=TEK1^.NEXT;
       I:=I+1;
      END
     ELSE
      BEGIN
       TEK1^.NEXT:=NIL;
       OK:=FALSE;
      END;   {Konec operatora IF }
    END;     {Konec cikla WHILE}
  END;       {konec proceduri VVOD} 
 
PROCEDURE Mesto;
 
 
PROCEDURE PRINT;
  BEGIN
WRITELN(' ':10,'Spisok Igr');
WRITELN('Nomer','Nazvanie':12,'Koli4estvo':12,'Cena':10,'Stoimost':12);
      TEK1:=ZAGOL;   I:=1;
   WHILE TEK1 <> NIL DO
    BEGIN
     WRITELN(I:5,TEK1^.NAZ:12,TEK1^.KOL:12,TEK1^.Cena:10:2,TEK1^.KOL*TEK1^.Cena:12:2);
    TEK1:=TEK1^.NEXT;     I:=I+1;
    END;    READLN;  END;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2009, 14:12
Ответы с готовыми решениями:

Поменять местами вторую и предпоследнюю строки матрицы
В данном двумерном массиве размера n x m поменять местами вторую и...

Поменять местами первую и вторую половину массива
Помогите решить задачки!!! Дан массив B размера 2n. 1)Поменять местами...

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

Если длина строки кратна 4 то поменять местами первую и вторую части
Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие...

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

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

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и...

Поменять местами 1-ю и 3-ю записи
Ввести в файл несколько записей. Поменять местами 1-ю и 3-ю записи. Результат...

Первую и последнюю цифры в записи числа поменять местами
1. Дано натуральное число x. Первую и последнюю цифры в записи числа поменять...


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

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

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