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

Перевести код с Turbo Pascal

01.03.2016, 04:18. Показов 497. Ответов 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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
program kr5;
const
max_student = 30;
type
  student = record
   group: string[16];  {grippa}
   name: string[32];   {fio}
   exam: array [1..5] of shortint;  {exameny}
   zach: array [1..5] of char; {zachety}
  end;
  students = array[1..5] of student;
var
 f: file;
 
procedure addstudent(var p: students; c:word);
var
  i: integer;
begin
  if (c>0) and (c<=max_student) then with p[c] do begin
  write('fio studenta: '); readln(name);
  write('nomer gryppu: '); readln(group);
  for i:=1 to 5 do begin
  write('ozenka za examen ', i, ': '); readln(exam[i]);
  end;
  for i:=1 to 5 do begin
  write('zachet ', i, ' [z/n]: '); readln(zach[i]);
  end;
 end;
end;
 
function loadfromfile(var p: students): word;
var
 c: word;
begin
  loadfromfile:=0;
  {$I-}
  reset(f, 1);
  blockread(f, c, sizeof(c));
  blockread(f, p, sizeof(p));
  if ioresult=0 then loadfromfile:=c;
  close(f); c:=ioresult;
  {$I+}
end;
 
procedure savetofile(var p:students; c: word);
begin
  rewrite(f, 1);
  blockwrite(f, c, sizeof(c));
  blockwrite(f, p, sizeof(p));
  close(f);
 end;
 
procedure printall(var p:students; c: word);
var
 i,j: integer;
 begin
  if c>0 then
   for i:=1 to c do with p[i] do begin
    writeln('Student No', i);
    writeln('gruppa: ', group);
    writeln('FIO: ', name);
    write(' ekzameny: '); for j:=1 to 5 do write(exam[j],' ');
    write(' zachety: '); for j:=1 to 5 do write(zach[j],' ');
   end
  else writeln('pusto!');
 end;
 
 procedure showmiddlevalue(var p:STUDENTS; c: word);
 var
  i, j, l: integer;
  g: string[16];
  m1, m2: real;
 begin
  if c>0 then begin
   write('vvedite nomer gruppy: '); readln(g);
   l:=0; m2:=0;
   for i:=1 to c do with p[i] do
    if group=g then begin
     inc(l);
     m1:=0;
     for J:=1 to 5 do m1:=m1+exam[j];
     m1:=m1/5; m2:=m2+m1;
     writeln(l:2, '. ', name, ':', '':34-length(name), m1:3:1);
    end;
   if l>0 then writeln('Srednii ball po grippe: ', m2/l:3:1);
  end else writeln('Pusto!');
 end;
 
 procedure showbadstudents(var p: students; c: word);
 var
  i, j, k, l: integer;
  g: string[16];
 begin
  if c>0 then begin
   write('vvedite nomer gruppy: '); readln(g);
   l:=0;
   for i:=1 to c do with p[i] do
    if group=g then begin
     k:=0;
     for j:=1 to 5 do
      if exam[j]>4 then inc(k);
     if k=0 then begin
     inc(l); writeln(l:2, '. ', name);
    end;
   end;
  if l=0 then writeln('dvoeshnikov net.');
 end else writeln('pusto!');
end;
 
var
 cmd: integer;
 data: students;
 count: word;
begin
 assign(f, 'student.db');
 count:=loadfromfile(data);
 repeat
  writeln;
  writeln('1. Dobavit v vedomost');
  writeln('2. Vivesti sisok na ekran' );
  writeln('3. Ydalit bazy' );
  writeln('4. Srednii ball' );
  writeln('5. Dvoeshniki' );
  writeln('0. Exit');
  write('vvedite kod operacii: ' ); readln(cmd);
  case cmd of
  1:
   begin
    inc(count);
    addstudent(data, count);
    savetofile(data, count);
   end;
  2: printall(data, count);
  3:
   begin
    erase(f); count:=0;
    writeln('baza ydalena.');
    end;
  4: showmiddlevalue(data, count);
  5: showbadstudents(data, count);
  end;
 until cmd=0;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2016, 04:18
Ответы с готовыми решениями:

Перевести код с Turbo Pascal
помогите перенести с Turbo Pascal на Pascal ABC метод полной релаксации решения СЛАУ uses crt; ...

Перевести код с Turbo Pascal
program format; uses crt; var filename,slovo,stroka:string; f:text; dlina,otstup,i:byte;...

Переписать код из Turbo Pascal в pascal ABC
очень плохо знаю Turbo Pascal, а времени на изучение нет, а его надо переписать в Pascal ABC, буду...

Переписать код из Turbo Pascal в Pascal ABC
Программа 1: program zadacha; uses crt, graph; const m=150; var gd,gm,i,j,s1,s2,c: integer;...

__________________
1
0 / 0 / 1
Регистрация: 01.02.2016
Сообщений: 4
08.03.2016, 02:28  [ТС] 2
ПО-МО-ГИИИИ-ТЕ!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2016, 02:28

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

Переписать код из Turbo Pascal в Pascal ABC
program zadacha; uses crt, graph; const m=50; var gd,gm,i,j,s1,s2,c1,c2: integer;...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в pascal ABCprogram zadacha; uses crt, graph; const m=50; var...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в Pascal ABCprogram zadacha; uses crt, graph; const m=150; var...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...


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

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

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