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

Работа с файлами

04.01.2015, 12:09. Показов 363. Ответов 0
Метки нет (Все метки)

1. Изменить способ заполнения массива записей в лабораторной работе № 3 с использованием файлов. Сформировать файлы с реальными фамилиями и именами и заполнить поля записей данными из этих файлов. При заполнении полей записей учитывать пол человека. Отчества сформировать автоматически из файла с мужскими именами путем добавления нужного окончания в зависимости от пола. Мужские имена для отчеств выбирать из файла случайным образом. Для заполнения ФИО дополнительные массивы и файлы не использовать.
2. Один из результатов выполнения заданий из ЛР№ 3 записать в файл.

3. Переписать полученный файл в другой файл, добавив к записи поле – количество букв в ФИО.


При выполнении данной работы на языке Pascal (ObjectPascal, Delphi) в задании 1 использовать текстовый файл, в задании 2 для записи использовать типизированный файл, в задании 3 и для чтения и для записи использовать нетипизированный файл. При работе с файлами дополнительные файлы не использовать.


Задача лабораторной работы № 3:
В группе определить средний балл после зимней сессии и абсолютную успеваемость. Распечатать ФИО студентов, направленных от завода.
Рассортировать студентов по возрастанию среднего балла.

мой код для Задачи лабораторной работы № 3:
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
59
60
61
62
type
  stud=record
    fio: record
      f, im, och : string;
    end;
    oz: array[1..4] of byte;
    Ocenka: string;
  end;
var
  grup: array [1..30] of stud;
  sdali: array [1..30] of stud;
  i,j,k,kolstud,n:integer;
  
function RandomName :String;
var
  j,i:integer;
  ch:char;
begin
  ch:=chr(random(192, 223));
  result:=ch;
  for i:=1 to random(3, 10) do
  begin
    ch:=chr(random(224, 255));
    result:=result+ch;
  end;
end;
function RandomOcenka :String;
begin
 
  result:=result+inttostr(random(1,5))+inttostr(random(1,5))+inttostr(random(1,5)); //Оценки за сессию
end;
 
function PerviySimbol (s: string): String;
begin
  delete(s, 2, length(s)-1);
  result:=s+'.';
end; 
 
begin
  kolstud:=random(15, 30);
  n:=1;
  for i:=1 to kolstud do
  begin
    grup[i].fio.f:=RandomName;
    grup[i].fio.im:=RandomName;
    grup[i].fio.och:=RandomName;
    grup[i].Ocenka:=RandomOcenka;
    k:=0;
    for j:=1 to 4 do
      begin
        grup[i].oz[j]:=random(2, 5);
        if grup[i].oz[j]=2 then inc(k);
      end;
    if k<>0 then writeln(grup[i].fio.f,' ', PerviySimbol(grup[i].fio.im),
' ',PerviySimbol(grup[i].fio.och),' ',grup[i].Ocenka,' ','от завода')
      else
      begin
        sdali[n]:=grup[i];
        inc(n);
      end;
  end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2015, 12:09
Ответы с готовыми решениями:

Работа с файлами , хотелось бы с windows system файлами
всем привет, нужна интересная идея по программированию, работа с файлами , хотелось бы с windows...

Работа с файлами(Запись,чтение,работа с данными)
Здравствуйте, никак не могу осилить файлы... Для начала вот само задание: В справочной автовокзала...

Лабораторная работа №5. Работа с файлами и алгоритмы сортировки
1. Написать функцию Load для считывания из текстового файла (например, Workers.txt) информации о...

Работа с файлами, чтение/работа со строкой
Доброго времени суток. Начал работать с C++ Builder 6. Есть текстовый файл .txt с различными...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.01.2015, 12:09

Работа с файлами
если на диске с в каталоге ren имеется файл s11.fam то вывести на экран номер первой...

Работа с h файлами
Такая проблема Создаю Header File (File-&gt;New-&gt;File-&gt;(Visual C++)-&gt;Header File в нем объявляю...

Работа с файлами
Вообщем стоит две задачи: 1) с помощью функций fstream в текстовом документе заменить все символы...

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

Работа с файлами
Прошу помочь доделать. //В файлах хранится информация о студентах: фамилия, год рождения,...

Си, работа с файлами
помогите пожалуйста написать прогамму на Си, вот само задание: подготовьте текстовый файл,...


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

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

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