IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Ничего оригинального, тупо ещё одна проблема с прогой).
сообщение
Сообщение #1


Гость






Задание: создать файл, содержащий сведения о студентах вашей группы(фамилия, имя, отчество, экзаменационные оценки)
а)упорядочить список студентов по успеваемости
б)подсчитать средний балл в группе
в)посчитать средний балл каждого студента

С б и в нет проблем, проблема с а. Понял, что нужно обращаться не к массиву, а к файлу и использовать один из методов сортировки(после прочтения форума), а реализовать не получается.

program bred;
uses crt;
const
w=2;
n=5;
type
ank=record
fam:string[25];
imya:string[25];
otch:string[30];
ozenki:array [1..n] of integer;
end;
spisok=file of ank;
var
a,b:real;
i,j:integer;
an:ank;
s:spisok;
sbs,sbg:real;
begin
assign(s,'d:\studenti.dat');
rewrite(s);
for i:=1 to w do
begin
with an do
begin
write('Familia '); readln(fam);
write('Imya '); readln(imya);
write('Otchestvo '); readln(otch);
write('Ozenki ');
begin
for j:=1 to n do
read(ozenki[j]);
end;
readln;
end;
write(s,an);
end;
close(s);
reset(s);
for i:=1 to w do
begin
read(s,an);
for j:=1 to n do
a:=a+an.ozenki[j];
end;
sbg:=a/(n*w);
Writeln('Srednii ball v gruppe =',sbg:1:1);
close(s);
reset(s);
for i:=1 to w do
begin
read(s,an);
b:=0;
begin
for j:=1 to n do
b:=b+an.ozenki[j];
end;
sbs:=b/n;
write(s,an);
with an do
writeln(an.fam,' ',an.imya,' ',an.otch,' ','srednii ball = ', sbs:1:1);
end;
close(s);
End.

 К началу страницы 
+ Ответить 

Сообщений в этой теме
Jonathan Davis   Ничего оригинального, тупо ещё одна проблема с прогой).   23.12.2006 23:07
volvo   Ты хочешь прямо в файле сортировать данные? Или вс…   23.12.2006 23:23
Гость   Ты хочешь прямо в файле сортировать данные? Или в…   23.12.2006 23:28
volvo   В файле не может быть быстрей только потому, что с…   23.12.2006 23:41
Гость   В файле не может быть быстрей только потому, что …   23.12.2006 23:52
мисс_граффити   Некоторые сортировки (внешние) и на файлах дают н…   23.12.2006 23:44
Гость   Некоторые сортировки (внешние) и на файлах дают н…   23.12.2006 23:56
volvo   Ну, перед сбрасыванием в файл пробегись по массиву…   23.12.2006 23:58
Гость   Ну, перед сбрасыванием в файл пробегись по массив…   24.12.2006 0:04
volvo   Аааа... :) Нет, так не пойдет... Тебе надо сорти…   24.12.2006 0:13
мисс_граффити   Можно в этот, но тогда ты потеряешь тот порядок, к…   24.12.2006 0:14
Jonathan Davis   Там возраст уже дан, а мне успеваемость нужно вычи…   24.12.2006 0:48
volvo   Да не надо ничего сохранять! Что, нельзя напис…   24.12.2006 1:04
Jonathan Davis   Да не надо ничего сохранять! Что, нельзя напи…   24.12.2006 1:06
volvo   Смотри (банальный "пузырек"): Type arr…   24.12.2006 1:12
Jonathan Davis   Смотри (банальный "пузырек"): Type ar…   24.12.2006 1:16
Jonathan Davis   Ой, мож кто поможет связать код volvo с моей прого…   25.12.2006 1:25
Jonathan Davis   Помогите пожалуйста, завтра сдавать( Как посчитать…   11.01.2007 22:51
мисс_граффити   передаешь функции запись как параметр... а внутри …   11.01.2007 23:30
Jonathan Davis   передаешь функции запись как параметр... Что вы…   11.01.2007 23:47
мисс_граффити   а какие еще варианты, что можно подразумевать под…   12.01.2007 0:13
Jonathan Davis   function f(x:ank):real; var i,m…   12.01.2007 0:21
мисс_граффити   m:m+an.ozenki[i]; ты имел в виду "присвоить…   12.01.2007 0:35
Jonathan Davis   ты имел в виду "присвоить"? не забудь о…   12.01.2007 0:41
мисс_граффити   Ты хочешь передавать именно номер, а не саму анкет…   12.01.2007 1:09
Jonathan Davis   Ты хочешь передавать именно номер, а не саму анке…   12.01.2007 1:11
мисс_граффити   function f(x:ank):real; var i,m:integer; begin m:=…   12.01.2007 1:15
Jonathan Davis   function f(x:ank):real; var i,m:integer; begin m:…   12.01.2007 1:22
мисс_граффити   так же, как с полями an. они же одного типа (ank),…   12.01.2007 1:24
Jonathan Davis   так же, как с полями an. они же одного типа (ank)…   12.01.2007 1:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.11.2020 15:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name