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

Написать две программы: первая должна создавать файл об учениках некоторой школы

17.05.2015, 12:00. Показов 1717. Ответов 1
Метки нет (Все метки)

Постановка задачи
Для решения задачи необходимо написать две отдельных программы. Первая должна считывать данные с Мемо и заносить их во внешний файл на диске. Вторая программы должна производить поиск данных в уже готовом файле и выводить результаты поиска на экран.
2. Написать две программы: первая должна создавать файл об учениках некоторой школы, содержащий следующие сведения - фамилия, имя, класс, буква; вторая программа должна собрать в отдельном файле все сведения об учениках девятых классов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2015, 12:00
Ответы с готовыми решениями:

На вход программе подаются сведения об учениках некоторой средней школы
На вход программе подаются сведения об учениках некоторой средней школы. Сначала сообщается...

В файл хранится информация об учениках школы;
В файл хранится информация об учениках школы;имя ,фамилия, дата рождение (число,месяц,год) и...

Собрать в файл g сведения о лучших учениках школы
Помогите пжл.решить задачу,ОЧЕНЬ НАДО!!!!!! Дан файл f, кот.содержит сведения об учениках...

Дан файл, содержащий сведения о учениках школы. Выяснить, имеются ли в школе однофамильцы
Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в...

1
243 / 193 / 94
Регистрация: 01.05.2015
Сообщений: 732
17.05.2015, 12:46 2
Лучший ответ Сообщение было отмечено MashaShatrova как решение

Решение

Маленький набросок...

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
type
  TStudent = record
   FName  : string[100];
   FFamily: string[100];
   FClass : string[3];
  end;
 
var
  Form1: TForm1;
  Student: TStudent;
 
const
  SName: array[0..2] of string = ('Вася','Петя','Леша');
  Family: array[0..2] of string = ('Петров','Иванов','Сидоров');
 
procedure TForm1.Button1Click(Sender: TObject);
var F: File Of TStudent; i,n: integer; s: string;
begin
Randomize;
Memo1.Clear;
n := random(100);
AssignFile(F, 'students.txt');
Rewrite(F);
for i:=0 to n do
 begin
  Student.FName := SName[random(3)];
  Student.FFamily := Family[random(3)];
  repeat
  s:='';
  n := random(256);
  if Chr(n) in ['А'..'Я'] then s := Chr(n);
  until s<>'';
  Student.FClass := IntToStr(random(13))+s;
  Memo1.Lines.Add(Student.FName + ' ' + Student.FFamily +
  ' ' + Student.FClass);
  Write(F, Student);
 end;
CloseFile(F);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var F,FN: File of TStudent; c: char;
begin
if not FileExists('students.txt') then exit;
Memo1.Clear;
AssignFile(F, 'students.txt');
AssignFile(FN, 'students9class.txt');
Reset(F); Rewrite(FN);
while not Eof(f) do
 begin
  Read(F, Student);
  if pos('9',Student.FClass)<>0 then
   begin
    Memo1.Lines.Add(Student.FName + ' ' + Student.FFamily +
     ' ' + Student.FClass);
    Write(FN, Student);
   end;
 end;
CloseFile(F);
CloseFile(FN);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2015, 12:46
Помогаю со студенческими работами здесь

В один файл записать сведения об учениках школы, во второй - только учеников 9 класса
Написать две программы: первая должна создавать файл об учениках некоторой школы, содержащий...

43. Создать файл, содержащий данные об учениках школы: фамилия, имя; класс (1,2,.11); буква (А,Б,В,
Создать файл, содержащий данные об учениках школы: фамилия, имя; класс (1,2,.....11); буква...

Создать текстовый файл, содержащий сведения об учениках школы. Найти учеников 9 класса, родившихся в 1994 году
Создать текстовый файл, содержащий сведения об учениках школы (фамилия, имя, класс, литера(А,Б..),...

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


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

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

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