Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Samyyy
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
1

Программа с файлом

06.03.2016, 16:09. Просмотров 334. Ответов 1
Метки нет (Все метки)

Проверьте программу с файлом, пожалуйста
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
63
uses crt;
type
  Student = record
    fio: String;
    marks: array[1..3] of Integer;
  end;
 
function isDigit(const c: Char): Boolean;
begin
  Result := c in ['0'..'9'];
end;
 
procedure ReadStudent(var f: Text; var obj: Student);
var
  s, mark: String;
  i, j: Integer;
begin
  Readln(f, s);
  s := s + ' ';
  i := 1; j := 0; mark := '';
  while not (isDigit(s[i])) do i += 1;
  obj.fio := Copy(s, 1, i - 1);
  while i <= Length(s) do 
  begin
    if isDigit(s[i]) then mark += s[i] else
    if mark <> '' then
    begin
      j += 1;
      obj.marks[j] := StrToInt(mark);
      mark := ''; 
    end;
    i += 1;
  end;
end;
 
procedure WriteStudent(const obj: Student);
var
  i: Integer;
begin
  Write(obj.fio, ' ');
  for i := 1 to 3 do Write(obj.marks[i], ' ');
  Writeln;
end;
 
function is_Excellent(const obj: Student): Boolean;
begin
  Result := (obj.marks[1] = 5) and (obj.marks[2] = 5) and (obj.marks[3] = 5);
end;
 
var
  t: Student;
  f: Text;
 
begin
  Assign(f, 'D:\PABCWork.NET\yuliya.txt');
  Reset(f);
  while not (eof(f)) do 
  begin
    ReadStudent(f, t);
    if is_Excellent(t) then WriteStudent(t);
  end;
  Close(f);
end.
0
Вложения
Тип файла: txt yuliya.txt.txt (518 байт, 0 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2016, 16:09
Ответы с готовыми решениями:

Программа для работы с файлом работает некорректно
Задание: Дан файл F, содержащий номера телефонов сотрудников учреждения с указанием их фамилий и...

Написать программу для работы с типизированным файлом. Программа должна выполнять следующие функции
Написать программу для работы с типизированным файлом. Программа должна выполнять следующие...

программа по работе с файлом,очень нужно
сформировать файл F.определить сумму и произведение наибольшего и наименьшего из значений...

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

Программа с файлом
В файле Raw.dat, содержится 30 целых чисел, записанных через пробел. Написать программу которая...

1
Samyyy
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
06.03.2016, 16:17  [ТС] 2
уже не надо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2016, 16:17

Программа с файлом
Задача: в текстовом файле подсчитать кол-во предложений короче\ длиннее чем n символов. Алгоритм:...

Программа с заголовочным файлом (с++)
Всем Привет! Недавно стал изучать использование заголовочных файлов в с++ и столкнулся с...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru