Только с массивами STRING, процедурами и текстовыми файлами;

@aleksskay4 · Регистрация: 02.12.2015

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

Можете помочь?
Используя массивы типа string, процедуры и текстовые файлы выполнить задание:

Дан список группы в 10 человек в виде
ФАМИЛИЯ ИМЯ ОТЧЕСТВО
20 символов 10 симв. 15 симв.
Данные в одной строке отделяются друг от друга пробелами. Определить число встречающихся имен и напечатать в виде:
Сергей - 2
Петр - 1

@Puporev · 09.11.2017, 16:21

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
const n=10;
var m:array[1..n] of string;
    a:array[1..n] of string;
    i,j,k,p:integer;
    f:text;
begin
assign(f,'Input.txt'); //файл в папке с программой
reset(f);
for i:=1 to n do
 begin
  readln(f,m[i]);
  writeln(m[i]);
 end;
close(f);
k:=1;
a[1]:=copy(m[1],21,10)+' - 1'; //перврое имя 1 раз
for i:=2 to n do
 begin
  j:=1;
  while(j<=n)and(copy(m[i],21,10)<>copy(a[j],1,10)) do inc(j);
  if j>n then //если этого имени нет раньше
   begin
    inc(k); //новое имя
    a[k]:=copy(m[i],21,10)+' - 1';//его запись
   end
  else//если уже было
   begin
    p:=strtoint(copy(a[j],14,length(a[j])-13)); //запомним сколько раз
    delete(a[j],14,length(a[j]));//удалим это
    a[j]:=a[j]+inttostr(p+1);//запишем на 1 больше
   end;
 end;
writeln('Встречаемость имен');
for i:=1 to k do
writeln(a[i]);
end.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

Опции темы

Только с массивами STRING, процедурами и текстовыми файлами;

Решение