0 / 0 / 1
Регистрация: 14.01.2013
Сообщений: 25
1

Нужны комментарии к коду.

29.01.2013, 18:51. Показов 499. Ответов 2
Метки нет (Все метки)

Delphi
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
program otcht;
type otch=record
grupp:string[20];
pred:string[20];
kol:integer;
pt:integer;
ch:integer;
tr:integer;
dv:integer;
usp:real;
kach:real;
end;
label v;
var   
i,n:integer;
otchet:otch;
f:file of otch;
nomer:integer;
procedure savef ();
begin
writeln('vvedite kolichectvo n:');
readln(n);
rewrite(f); 
for i:=1 to n do begin
writeln('vvedite gruppu, predmet, kolichectvo, pyaterok, chetverok, troek, davoek, uspevaemost, kachestvo:');
readln(otchet.grupp);
readln(otchet.pred);
readln(otchet.kol);
readln(otchet.pt);
readln(otchet.ch);
readln(otchet.tr);
readln(otchet.dv);
otchet.usp:=((otchet.pt+otchet.ch+otchet.tr)/otchet.kol)*100;
otchet.kach:=((otchet.pt+otchet.ch)/otchet.kol)*100;
write(f,otchet); {}
end;
close(f); 
end;
procedure openf; 
begin
reset(f); 
repeat
read(f,otchet);
  write(otchet.grupp:5);
  write(otchet.pred:5);
  write(otchet.kol:5);
  write(otchet.pt:5);
  write(otchet.ch:5);
  write(otchet.tr:5);
  write(otchet.dv:5);
  write('otchet.usp',otchet.usp:2:1);
  write('otchet.kach',otchet.kach:2:1);
  writeln;
  until
  eof(f);
  end;
  procedure oppendf;
  var c:char;{}
  begin
  reset(f);
 
  seek(f,filesize(f));{}
  repeat
  writeln('dobavte zapis:');
  writeln('vvedite  gruppu, predmet, kolichectvo,   pyaterok, chetverok, troek, davoek, uspevaemost,  kachestvo:');
  begin
  readln(otchet.grupp);
  readln(otchet.pred);
  readln(otchet.kol);
  readln(otchet.pt);
  readln(otchet.ch);
  readln(otchet.tr);
  readln(otchet.dv);
  otchet.usp:=((otchet.pt+otchet.ch+otchet.tr)/otchet.kol)*100;
  otchet.kach:=((otchet.pt+otchet.ch)/otchet.kol)*100;
  write(f,otchet); 
  writeln('dla prodolgeniya nagmite y');
  writeln('dla vixoda nsgmite n');
  readln(c);
  end;
  until c<>'y';
  end;
  begin 
   assign(f,'D:\po21\z8\otchet.da'); 
  v:writeln('menu');
   writeln('1.sozdanie faila:');
  writeln('2.chtenie iz faila:');
  writeln('3.dobavlenie zapisey:');
  writeln('4. voxos iz programmi:');
  writeln('vibrat nomer faila:');
  readln(nomer);
  case nomer of 
  1:Savef;
  2:Openf;
  3:oppendf;
  4:exit;
  end;
 goto v; 
  readln;
  end.
нужны грамотные комментарии к каждому оператору!!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2013, 18:51
Ответы с готовыми решениями:

Нужны комментарии к коду
treeview1.Items.Item.Selected:=true ; Sleep(1500); CreateSemaphore(nil,0,1,'compdevice');...

Гаммирование, нужны комментарии к коду
Может кто расшифровать, как эта программа работает? var s,nabor_cifr:string; a,b:Integer; ...

Калькулятор (нужны комментарии к коду)
Не могу понять алгоритм программы, скачал в интернете калькулятор, но не могу понять как работает....

Построение графика и комментарии по коду нужны
Прокоментируйте код вкратце procedure TForm1.FormCreate(Sender: TObject); begin ...

2
Эксперт Pascal/Delphi
4863 / 2739 / 846
Регистрация: 04.10.2012
Сообщений: 9,987
29.01.2013, 19:05 2
А алгоритм? Что выполняет данный код в программе? Оракулов тут нет.
0
0 / 0 / 1
Регистрация: 14.01.2013
Сообщений: 25
29.01.2013, 19:06  [ТС] 3
7. Отчет по аттестации содержит название группы, предмет, общее количество учащихся, количество пятерок, четверок, троек, двоек, проценты успеваемости и качества по группе. Вычисляемые поля Процент качества и Процент успеваемости.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2013, 19:06
Помогаю со студенческими работами здесь

Комментарии к коду
код в текстовом документе

Комментарии к коду
Помогите написать комментарии к коду. Шифрование DES unit DES; interface Uses Windows,...

Комментарии к коду
Здравствуйте. Можете пожалуйста добавить комментарии к данному коду? Что значит Sender as TShape и...

Дайте комментарии к коду
unit UnitMainForm; interface uses Windows, Messages, SysUtils, Variants, Classes,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru