Пусть в файле хранятся сведения о студентах некоторой группы(файлы)

@niklajjslvnv · Регистрация: 18.01.2010

Студворк — интернет-сервис помощи студентам

Пусть в файле хранятся сведения о студентах некоторой группы в виде записей след-ей структуры: анкетные данные(ФИО) и 10 оценок за последнюю сессию.
Вывести в заданный текстовый файл фамилии, инициалы и кол-во двоек неуспевающих студентов. Предусмотреть возможность создания файла.

Добавлено через 33 секунды
помогите будте так добры, очень надо(а то кранты)...

@Inadequate · 18.05.2010, 17:43

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

@niklajjslvnv · 18.05.2010, 17:48 **[ТС]**

д я чет вообще еще ни че особого не сделал. только собираюсь.

@Inadequate · 18.05.2010, 18:03

Ну как соберешься, сделаешь, возникнут конкретные вопрос, запостишь их в теме и тебе помогут.

@niklajjslvnv · 18.05.2010, 18:57 **[ТС]**

спасибо за совет

Добавлено через 44 минуты
помогите переделать...

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
uses crt;
type TStud=record
fio:string[15];
god:Word;
pol:string[3];
ocn:array[1..8]of byte;
end;
var sp:array[1..50] of Tstud;
f:file of Tstud;
g:text;
n,i,j,p,k:integer;
begin
clrscr;
assign(f,'gruppa.dat');
rewrite(f);
write('Kolichestvo studentov ');
readln(n);
for i:=1 to n do
begin
writeln('stydent ',i);
write('familiya i.o.: ');readln(sp[i].fio);
write('god rojdeniya: ');readln(sp[i].god);
write('pol: ');readln(sp[i].pol);
writeln('vvedite 8 ocenok:');
for j:=1 to 8 do
repeat
write(' ocenka ',j,'=');
readln(sp[i].ocn[j]);
until sp[i].ocn[j] in [2..5];
write(f,sp[i]);
end;
reset(f);
clrscr;
i:=0;
while not eof(f) do
begin
i:=i+1;
read(f,sp[i]);
write(sp[i].fio,' ',sp[i].god,' ocenki ');
for j:=1 to 8 do write(sp[i].ocn[j],' ');
writeln;
end;
close(f);
assign(g,'vsestud.txt');
rewrite(g);
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,sp[n]); 
writeln(g,sp[n].fio); 
end;
writeln('dannie v fail zapisany!');
close(f);
close(g);
readln
end.

@Inadequate · 18.05.2010, 19:09

Так не пойдет. Таких умников как ты я не люблю. Ты думаешь, что я не узнаю, что это код взятый тобой из этой темы ? Пока.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@niklajjslvnv 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 16

	Пусть в файле хранятся сведения о студентах некоторой группы(файлы) 18.05.2010, 17:41. Показов 1149. Ответов 5 Метки нет (Все метки) Пусть в файле хранятся сведения о студентах некоторой группы в виде записей след-ей структуры: анкетные данные(ФИО) и 10 оценок за последнюю сессию. Вывести в заданный текстовый файл фамилии, инициалы и кол-во двоек неуспевающих студентов. Предусмотреть возможность создания файла. Добавлено через 33 секунды помогите будте так добры, очень надо(а то кранты)... 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 17:43
	Задачи на записи никто не любит, потому что слишком много утомительной писанины. Показывай что делал самостоятельно. Задавай конкретные вопросы. 0

@niklajjslvnv 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 16
	18.05.2010, 17:48 [ТС]
	д я чет вообще еще ни че особого не сделал. только собираюсь. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 18:03
	Ну как соберешься, сделаешь, возникнут конкретные вопрос, запостишь их в теме и тебе помогут. 1

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 19:09
	Так не пойдет. Таких умников как ты я не люблю. Ты думаешь, что я не узнаю, что это код взятый тобой из этой темы ? Пока. 0