Переписать с использованием процедуры

02.01.2014, 15:44. Показов 563. Ответов 0

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

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

есть код надо сделать процедуру

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
type
  student = record
    surname: string[15];
    group: string;
    marks: array [1..3] of integer;
  end;
  studs = array [1..3] of student;
 
var
  stud: studs;
  i, j, s: integer;
  procedure count_stud(var i,j:integer);
  
  begin
  for i := 1 to 3 do
  begin
    with stud[i] do
    begin
      write('surname: ');
      readln(surname);
      write('group: ');
      readln(group);
      for j := 1 to 3 do
      begin
        write('marks[', j, ']=');
        readln(marks[j]);
      end;
    end;
  end;
  for i := 1 to 3 do
  begin
    s:=0;
    with stud[i] do
    for j:=1 to 3 do
      s := s + marks[j];
        if s = 15 then writeln('Группы с отличниками:[', stud[i].group, ']');

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

02.01.2014, 15:44

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

Переписать код с использованием процедуры
как вот эту задачу сделать с помощью процедуры?????? program L6_3; uses crt; const nmax=20; Var a:array of integer; ...

Переписать задачу с использованием процедуры
uses crt; var x:arrayof integer; y:arrayof integer; i:integer; begin clrscr; writeln('Первый массив'); for i:=1 to 20 do ...

Переписать код с использованием процедуры
Помогите пожалуйста с паскалем, надо переписать под процедурное, всю голову себе сломала( var a1, a2, a3, min: integer; ...

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

02.01.2014, 15:44

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

Переписать код с использованием процедуры
ИСПРАВИТЬ НА ПРОЦЕДУРУ program Z1; var t,x,y,z,min1,min3,min2:integer; function minx2(a,b:integer):integer; begin if...

Переписать программу с использованием процедуры
может кто это "переделать"\описать через процедуру? const s:string ='0123456789ABCDEF'; c:array of byte...

Как переписать код с использованием процедуры?
Я написал код,который заменяет элементы главной диагонали матрицы нулями,как сделать этот через процедуру? вот код: const N =...

Переписать программу через процедуры
program pr2; var d1,d2,m1,m2:integer; T:boolean; begin writeln('Vvedite daty 1'); read(d1,m1) writeln('Vvedite daty 2'); ...

Переписать программу под процедуры
uses crt; var s1,s2: string; x,i:integer; begin write('s1='); readln(s1); x:= 0; for i:= 1 to length(s1) do x:=...

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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	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. Задача: при создании документов установить период списания автоматически. . .

Наверх