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

подскажите чего не хватает?

09.01.2014, 14:44. Просмотров 224. Ответов 1
Метки нет (Все метки)

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
program laba7;
 type STROKA=record
              name:array[1..16] of char;
              rezult:record
               pobed,proig,nich,och:integer;
            end;
            gols:record
              zabit,prop,razn:integer;
              end;
              VED:array[1..100] of char;
       var V:VED;
           i,N:integer;
       procedure Vvod(var V:VED;var N:integer);
        var i,j:integer;
         namcom:string;
       begin
        write('количество команд?:'');
        readln(N);
        for i:=1 to N do
        with V[i] do
       begin
        for j:=1 to 16 do
        name [j]:='';
       writeln('введите название команды');
       readln(namecom);
       for j:=1 to ovd (namecom[0]) do
       name [j]:=namecom[j];
       write('количество побед=');
       readln(rezult.pobed);
       write('количество поражений=');
       readln(rezult.proig);
       write('количество ничьих=');
       readln(rezult.nich);
       write('количество забитых голов=');
       readln(gols.zabit);
       write('количество пропущенных=');
       readln(gols.prop);
       end;
       writeln;
      end;
      procedure Vivod1(var V:VED;varN:integer);
                var i,j:integer;
        begin
        for j:=1 to 66 do
        write ('-');
        writeln;
        Writeln('| Название команды|выигр.|проигр.|Ничьих|Забит.|Пропущ.|');
        writeln('|......|.....|.....|.....|.....|.....|');
        for i:=1 to N do
        eith V[i] do
         begin
          write('|');
           for j:=1 to 16 do
          write('|',rezult.pobed:6,'|',rezult. proig:7,'|',rezult nich:5);
          write('|',gols. zabit:6,'|',gols.prop:7,'|');
          writeln
          end;
          for j:=1 to 66 do
          write ('-');
          writeln;
          end;
          procedure Itog_tabl(var V:VED;var N:integer);
              var i,j:integer;
              VV:STROKA;
          begin
          for i:=1 to N do
          with V[i] do
          begin rezult.och:=rezult.pobed*2+rezult.nich:
          gols.razn:=gols.zabit-gols,prop;
          end;
          for j:=1 to N do
          for i:=1 to N-1 do
          begin
          if V[i] rezult.och>V[i+1]rezult.och then continue;
          if V[i] rezult.och=V[i+1]rezult.och then continue;
          if V[i] gols.razn>V[i+1]gols.razn then continue;
          begin VV:=V[i];
          V[i]:=V[i+1]
          V[i+1]:=VV
          end;
         end;
         procedure Vivod2(var V:VED;N:integer);
                  var i,j:integer;
            begin
            for j:=1 to 51 do
             write('-');
             writeln;
             Writeln)'|место|название команды|очки|разница очков|');
             writeln('|.....|.....|.....|.....|');
             for i:=1 to N do
             with V[i] do
             begin
             write('|',i:5,'|');
              for j:=1 to 16 do
              write(name[i]);
             writeln('|',rezult.och:4,'|',gols.razn:13,'|');
             end;
           for j:=1 to 51 do
           write('-');
           writeln;
           end;
            begin
            cls;
            Vvod(V,N);
            writeln;
            writeln('исходная таблица:');
            Vivod1(V,N);
            writeln('итоговая таблица:');
            Itog_tabl(V,N);
            Vivod2(V,N);
   end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2014, 14:44
Ответы с готовыми решениями:

решение уравнения, подскажите чего не хватает
var y,x: real; begin x:=34.211; Writeln (y=1 / (exp(2 *...

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

Решил начать изучать графику. Подскажите с чего начать
Решил начать изучать графику в паскале. Подскажите с чего начать. Отличается ли...

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

Что не хватает в коде?
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26128 / 17521 / 6949
Регистрация: 22.10.2011
Сообщений: 30,857
Записей в блоге: 6
09.01.2014, 15:23 2
end-а не хватает между 10 и 11 строкой... А в 17-ой строке лишний апостроф, неужели по подсветке не видно?

Добавлено через 8 минут
Хотя... У тебя тут в коде - полный бардак. Вот так он хотя бы компилируется:

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
program laba7;
 
type
  STROKA = record
    name: array[1..16] of char;
    rezult: record
      pobed, proig, nich, och: integer;
    end;
    gols: record
      zabit, prop, razn: integer;
    end;
  end;
  VED = array[1..100] of stroka;
 
var
  V: VED;
  i, N: integer;
 
procedure Vvod(var V: VED; var N: integer);
var
  i, j: integer;
  namcom: string;
begin
  write('количество команд?:');
  readln(N);
  for i := 1 to N do
    with V[i] do
    begin
      for j := 1 to 16 do
        name[j] := ' ';
      writeln('введите название команды');
      readln(namcom);
      for j := 1 to ord(namcom[0]) do
        name[j] := namcom[j];
      write('количество побед=');
      readln(rezult.pobed);
      write('количество поражений=');
      readln(rezult.proig);
      write('количество ничьих=');
      readln(rezult.nich);
      write('количество забитых голов=');
      readln(gols.zabit);
      write('количество пропущенных=');
      readln(gols.prop);
    end;
  writeln;
end;
 
procedure Vivod1(var V: VED; varN: integer);
var
  i, j: integer;
begin
  for j := 1 to 66 do
    write('-');
  writeln;
  Writeln('| Название команды|выигр.|проигр.|Ничьих|Забит.|Пропущ.|');
  writeln('|......|.....|.....|.....|.....|.....|');
  for i := 1 to N do
    with V[i] do
    begin
      write('|');
      for j := 1 to 16 do
        write('|', rezult.pobed:6, '|', rezult. proig:7, '|', rezult.nich:5);
      write('|', gols. zabit:6, '|', gols.prop:7, '|');
      writeln
    end;
  for j := 1 to 66 do
    write('-');
  writeln;
end;
 
procedure Itog_tabl(var V: VED; var N: integer);
var
  i, j: integer;
  VV: STROKA;
begin
  for i := 1 to N do
    with V[i] do
    begin
      rezult.och := rezult.pobed * 2 + rezult.nich;
      gols.razn := gols.zabit - gols.prop;
    end;
  for j := 1 to N do
    for i := 1 to N - 1 do
    begin
      if V[i].rezult.och > V[i + 1].rezult.och then continue;
      if V[i].rezult.och = V[i + 1].rezult.och then continue;
      if V[i].gols.razn > V[i + 1].gols.razn then continue;
          // begin 
      VV := V[i];
      V[i] := V[i + 1];
      V[i + 1] := VV
    end;
end;
 
 
procedure Vivod2(var V: VED; N: integer);
var
  i, j: integer;
begin
  for j := 1 to 51 do
    write('-');
  writeln;
  Writeln('|место|название команды|очки|разница очков|');
  writeln('|.....|.....|.....|.....|');
  for i := 1 to N do
    with V[i] do
    begin
      write('|', i:5, '|');
      for j := 1 to 16 do
        write(name[i]);
      writeln('|', rezult.och:4, '|', gols.razn:13, '|');
    end;
  for j := 1 to 51 do
    write('-');
  writeln;
end;
 
begin
  cls;
  Vvod(V, N);
  writeln;
  writeln('исходная таблица:');
  Vivod1(V, N);
  writeln('итоговая таблица:');
  Itog_tabl(V, N);
  Vivod2(V, N);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2014, 15:23

Не хватает модуля matrix.tpu
Error 15: file not found <matrix.tpu> как я понимаю не хватает модуля ...

Требуюсь в спасении!!! завтра зачёт!! не хватает программ!!
1.Задана строка. Перевернуть фрагмент строки, находящийся между вторым...

Где-то есть ошибка, но найти ее не хватает сил.
Сведенья об автомобиле состоят из его марки. номера и фамилии владельца. Дан...


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

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

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