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

Допишите программу

28.06.2012, 20:39. Показов 760. Ответов 1
Метки нет (Все метки)

Сформировать запись, имеющую следующую структуру
type студент= record
фамилия: string; номергр: string; оценка1: integer; оценка2: integer; оценка3: integer; end;
и определить:
фамилию того, кто лучше всех сдал экзамены;
средний балл по данному предмету;
список задолжников.

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
uses crt;
const n=3;
type student=record
     fio:string[20];
     ng:string[10];
    oc1:integer;
    oc2:integer;
    oc3:integer;
     end;
var
a:array[1..n] of student;
l,i:integer;
m:string[20];
begin
                     {Ввод данных}
     i:=0;  l:=0;
  repeat
     i:=i+1;
     writeln('Введите данные ',i,' студента');
     writeln('Введите фамилию');
     readln(a[i].fio);
     writeln('Номер группы');
     readln(a[i].ng);
     writeln('Введите 1 оценку');
     readln(a[i].oc1);
  writeln('Введите 2 оценку');
     readln(a[i].oc2);
     writeln('Введите 3 оценку');
     readln(a[i].oc3);
 
 
  until i=n;
                   {Вывод данных}
   for i:=1 to n do
      begin
          writeln('********************************');
          writeln('Фамилия ',a[i].fio);
          writeln('Номер группы ',a[i].ng);
 
           writeln('1 оценка',a[i].oc1);
 
          writeln('2 оценка',a[i].oc2);
          writeln('3 оценка',a[i].oc3);
           writeln('Средний балл ','' , ((a[i].oc1+a[i].oc2+a[i].oc3)/3):5:2);
 
 
 
          writeln('********************************');
      end;
 
end.
я сделал чтобы выводило средний бал оценки
допишите список задолжников и фамилию тех кто лучше сдал
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2012, 20:39
Ответы с готовыми решениями:

Допишите программу
Дан двумерный массив A удалите в нем строку содержащую максимальное по модулю число и внесите...

Допишите программу на матрицу
Здравствуйте, сделайте пожалуйста так, чтобы программа еще раз вывела введеную матрицу, но при...

Допишите программу
10 DIM C(100, 100) 12 OPEN "MK.txt" FOR OUTPUT AS #1 15 PRINT "VVEDITE PORYADOK KVADRATA" ...

Допишите программу
Здравствуйте! У меня большая просьба к вам дописать пару функций в программу. Дан код: ...

1
2 / 2 / 1
Регистрация: 04.04.2012
Сообщений: 33
29.06.2012, 00:22 2
На тебе пример доделай по нему
Код
TYPE
Cars=Record
Fam:String[50];
Addres:String[50];
Nomer:String[7];
Marka:String[20];
End;
VAR
i,ii:integer;
Baza:Array[1..50] of Cars;
k,z,f:byte;
Stroka:String;
BEGIN
k:=0;
WriteLn('Ñêîëüêî áóäåì äåëàòü çàïèñåé, ×òîá âûéòè íàæìèòå "0". (Ìàêñèìóì 50) ?');
readln(z);
if z=0 then Exit;
For i:=1 to z do
Begin
Writeln('Çàïèñü ¹ ',i,'.');
Writeln;
Write('    Ââåäèòå ôàìèëèþ. (Ìàêñèìóì 50 áóêâ): ');
Readln(Baza[i].Fam);
Write('    Ââåäèòå àäðåññ. (Ìàêñèìóì 50 áóêâ): ');
Readln(Baza[i].Addres);
Write('    Ââåäèòå íîìåð ìàøèíû. (Ìàêñèìóì 7 áóêâ): ');
Readln(Baza[i].Nomer);
Write('    Ââåäèòå ìàðêó ìàøèíû. (Ìàêñèìóì 20 áóêâ): ');
Readln(Baza[i].Marka);
End;
Writeln('Ñïèñîê àâòîâëàäåëüöåâ, ó êîòîðûõ áîëåå îäíîãî àâòîìîáèëÿ:');
Writeln;
for i:=1 to z do
Begin
Stroka:=Baza[i].Fam;
For ii:=1 to z do
if Stroka=Baza[ii].Fam then inc(k);
if k>=2 then
Begin
writeln('Çàïèñü ¹ ',i,'.');
writeln;
write(' ',Baza[i].Fam);
write(' ',Baza[i].Addres);
write(' ',Baza[i].Nomer);
writeln(' ',Baza[i].Marka);
writeln;
f:=1;
End;
k:=0;
End;
if f=0 then writeln(i);
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2012, 00:22
Помогаю со студенческими работами здесь

Пожалуйста допишите программу
Здесь два конструктора, нужно объявить класс main, если не сложно покажите как это будет отдельно...

Допишите корректно программу - Таблица деления
10. Таблица Деления Выведите таблицу деления заданных размеров. Формат ввода На первой строке...

Допишите прогу
Удалить из вещественного массива элементы, наименее отличающиеся от его среднего арифметического....

ДОПИШИТЕ КОД )
Всем форумчан с наступающим поздравляю; Дописывайте код. Может что прикольное получится )))) ...


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

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

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