Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.10.2009
Сообщений: 30
1

переделайте программу в подпрограмный

22.10.2009, 21:36. Просмотров 351. Ответов 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
const n=3;
      m=5;
type
stud=record
    fio:string[12];
    bal:byte;
    end;
grup=record
    naz:string[5];
    otl:byte;
    std:array[1..m] of stud;
    srb:real;
    end;
var gr:array[1..n] of grup;
    i,j,k:byte;
    x:grup;
begin
 
writeln('Введите данные о студентах:');
for i:=1 to n do
 begin
  writeln('Группа ',i);
  repeat
  write(' Название из 5 символов: ');readln(gr[i].naz);
  until length(gr[i].naz)=5;
  gr[i].srb:=0;gr[i].otl:=0;
  for j:=1 to m do
   begin
    write(' Фамилия И.О.: ');readln(gr[i].std[j].fio);
    repeat
    write(' Балл (2-5): ');readln(gr[i].std[j].bal);
    until gr[i].std[j].bal in [2..5];
    if gr[i].std[j].bal=5 then gr[i].otl:=gr[i].otl+1;
    gr[i].srb:=gr[i].srb+gr[i].std[j].bal;
   end;
  gr[i].srb:=gr[i].srb/m;
 end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if gr[i].otl<gr[j].otl then
   begin
    x:=gr[i];
    gr[i]:=gr[j];
    gr[j]:=x;
   end;
 
for i:=1 to n do
 begin
  for j:=2 to m do
   begin
   end;
writeln('Введите данные о студентах:');
writeln(gr[i].naz);
writeln(gr[i].std[1].bal);
writeln(gr[i].srb:0:2);
writeln('Число отличников');
writeln(gr[i].otl);
 
 end;
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2009, 21:36
Ответы с готовыми решениями:

Переделайте пожалуйста данную программу
Переделайте пожалуйста данную программу из линейной в подпрограмный с использованием процедур и...

Переделайте эту программу через процедуру
type letters = array of integer; var a: letters; i: char; begin randomize; for...

Переделайте эту программу через функцию
type letters = array of integer; var a: letters; i, max: char; begin randomize; ...

Переделайте пожалуйста готовую программу с С++ на язык Паскаль!
помогите с реализацией алгоритма сжатия Хаффмана. // ConsoleApplication6.cpp: определяет точку...

1
Модератор
62244 / 46531 / 32078
Регистрация: 18.05.2008
Сообщений: 112,488
22.10.2009, 21:57 2
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
uses crt;
const n=3;
      m=5;
type
stud=record
    fio:string[12];
    bal:byte;
    end;
grup=record
    naz:string[5];
    otl:byte;
    std:array[1..m] of stud;
    srb:real;
    end;
mas=array[1..n] of grup;
procedure Vvod(var gr:mas);
var i,j:byte;
begin
writeln('Введите данные о студентах:');
for i:=1 to n do
 begin
  writeln('Группа ',i);
  repeat
  write(' Название из 5 символов: ');readln(gr[i].naz);
  until length(gr[i].naz)=5;
  gr[i].srb:=0;gr[i].otl:=0;
  for j:=1 to m do
   begin
    write(' Фамилия И.О.: ');readln(gr[i].std[j].fio);
    repeat
    write(' Балл (2-5): ');readln(gr[i].std[j].bal);
    until gr[i].std[j].bal in [2..5];
    if gr[i].std[j].bal=5 then gr[i].otl:=gr[i].otl+1;
    gr[i].srb:=gr[i].srb+gr[i].std[j].bal;
   end;
  gr[i].srb:=gr[i].srb/m;
 end;
end;
procedure Sort(var gr:mas);
var i,j:byte;
    x:grup;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if gr[i].otl<gr[j].otl then
   begin
    x:=gr[i];
    gr[i]:=gr[j];
    gr[j]:=x;
   end;
end;
procedure Vyvod(var gr:mas);
var i,j:byte;
begin
for i:=1 to n do
 begin
  writeln('Группа ',gr[i].naz);
  for j:=1 to m do
   begin
    writeln('  Данные о студентах:');
    writeln('   ',gr[i].std[j].fio);
    writeln('   ',gr[i].std[i].bal);
   end;
  writeln(gr[i].srb:0:2);
  write('Число отличников= ');
  writeln(gr[i].otl);
 end;
end;
var gr:mas;
begin
clrscr;
Vvod(gr);
Sort(gr);
Vyvod(gr);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2009, 21:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделайте программу под фукции
В этой программе сделайте пожалуйста ввод ,сложение ,вывод через функцию var s1, s2, s3, c:...

Переделайте программу из TurboPascal в PascalABC.Net
Помогите пожалуйста!Переделайте программу из TurboPascal в PascalABC.Net Вот программа uses...

Переделайте программу из Turbo Pascal в PascalABC
ПРОГРАММА: uses crt,TBL,graph; {подключение модулей} function PrintNumbers(const yk:...

Переделайте программу так, чтобы ввод и вывод осуществлялся с помощью текстовых файлов
Переделайте программу так, чтобы ввод и вывод осуществлялся с помощью текстовых файлов. Условие:...


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

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

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