Процедуры и функции

01.03.2014, 19:09. Показов 539. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

При написании программы столкнулся с проблемой. Суть программы: Определить, в каком из массивов имеется строка с максимальной суммой элементов. А проблема заключается в том, что в строке 15
Procedure print(x:mas2);
паскаль выдаёт ошибку встречено 'procedure' а ожидался оператор.Встал на этом месте и не хнаю что делать дальше, помогите пожалуйста.

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
Program Mas;
const n=4; m=5;
Type mas2=array[1..n,1..m] of integer;
var a,b: mas2; i,y: integer;
Procedure Vvod(c:char; var x:mas2);
Begin
 Begin
  for y:=1 to n do
  for r:=1 to m do
   Begin
    Writeln(' Введите ',c,'[',i:1,',',y:1,']');
    Readln(x[i,y])
    End;
 End;  
  Procedure print(x:mas2);
   Begin
    Writeln;
     for y:= 1 to n do
      write(x[i,y]:3)
   End;
   begin
  Writeln;
 End;
Function max(x+mas2):integer;
Var f: integer; r array[1..n] of integer;
Begin
 for y:=1 to n do
  Begin
   r[y]:=0;
   for i:=1 to ndo
   r[y]:=r[y]+x[i,y]
  End;
 f:=r[1];
 for y:=1 to ndo
  if f<r[y] then
  f:=r[y];
  max:=f
 End;
  Begin
  Vvod('a',a);
  Vvod('b',b);
  Print(a);
  Print(b);
  if max(a)>max(b) then writeln(' массив а ')
                   else writeln(' массив b ')
End.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

01.03.2014, 19:09

Ответы с готовыми решениями:

Функции и процедуры. При помощи процедуры записать слова задом наперед
Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед. Порядок слов сохранить. ...

Задачник Абрамян. Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям ко- ...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

01.03.2014, 19:09

Помогаю со студенческими работами здесь

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Процедуры и функции. Процедуры с числовыми параметрами Всем привет, помогите пожалуйста сделать задание:" Описать процедуру RectPS...

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям...

Подпрограммы-процедуры и процедуры-функции
Мне надо вычислить приближенное значение интеграла с помощью подпрограммы-процедуры и процедуры-функции. Я не могу ничего найти в...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

Наверх