Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Dunch
0 / 0 / 0
Регистрация: 24.12.2013
Сообщений: 8
#1

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

09.01.2014, 14:44. Просмотров 209. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос подскажите чего не хватает? (Pascal ABC):

решение уравнения, подскажите чего не хватает - Pascal ABC
var y,x: real; begin x:=34.211; Writeln (y=1 / (exp(2 * ln(10)))*x+(cos(x+1)/exp(ln(x)*(1/3))));

Подскажите чего не хватает в программе - Pascal
Дана матрица b, найти строку, содержащую минимальный элемент. Program laba3; const n=5; m=3; var b:array of real; ...

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

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

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

Не хватает модуля matrix.tpu - Pascal
Error 15: file not found <matrix.tpu> как я понимаю не хватает модуля matrix.tpu но где его взять? или ещё что надо сделать?

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24786 / 16460 / 5074
Регистрация: 22.10.2011
Сообщений: 29,078
Записей в блоге: 5
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
Привет! Вот еще темы с ответами:

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

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

Чего то не хватает а не знаю чего.... - VBScript/JScript
пишу на JScript var args = WScript.Arguments; var mas = new Array(args.length) {for (var i=0; i<args.length; i++) mas=args(i); } ...

Чего не хватает? - Delphi
Не старутет проект. МОжет кно-нибудь его скомпилировать, чтоб я получил ехе?


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

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

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