Записи Паскаль

@itsimp · Регистрация: 20.10.2013

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

Здравствуйте, я делаю практическую по теме записи.
Задача :
В техникуме студентов обучают по таким специальностям "Финансы" и "Компьютерщики"
найти
1. Всех преподавателей которые ведут занятия только у студентов с специальностью "Компьютерщики"
2.Определить есть ли преподаватель который ведет в одной группе.
Возникли проблемы со вторым условием не могу удалить из строки и повторяющуюся фамилию и ее вхождение.
фамилии это одно латинская буква

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
program z4;
uses crt;
const n=3;
type prep=record
PIB:string;
grupnomer:byte;
spec:string;
end;
var
 A:array [1..n] of prep;
    b:array [1..n] of prep;
    s1:array [1..n] of char;
    i,j,s,c,v,m:integer;
    P:STRING;
     k:string;
    g:string;
     l:string;
    begin
    for i:=1 to n do 
     begin 
        write('ФИО ');
         readln(A[i].PIB);
         write('spec');
         readln(A[i].spec);
          write('GRUPNOMER');
          Readln(a[i].grupnomer);
        end;
        for i:=1 to n do 
        begin
         b[i].PIB:=copy(a[i].PIB,1,4);
         b[i].grupnomer:=a[i].grupnomer;
         b[i].spec:=copy(a[i].spec,1,4);
        end;
        p:=' ';
      for i:=1 to n do
      if (a[i].spec)=('f') then 
       begin     
      p:=copy(a[i].PIB,1,4); 
        for j:=1 to n do 
         if (b[j].PIB)=(p) then //ищу учителей для выполнения 1 условия
          b[j].PIB:=' ';
        end; 
        write('учителя которые ведут у компьютерщиков',' '); 
   for i:=1 to  n do 
     begin
     write(b[i].PIB,' ');
     end;
     writeln ('преподователь который ведет в одной группе');
     for i:=1 to n do 
    l:=L+copy(A[i].PIB,1,1);//создал l для того чтобы сортировать в ней
    for i:=1 to length(l) do
begin
         //блок в котором возникла проблема
 
               
    
 
end;      
 
     end.

Добавлено через 22 часа 40 минут
написал 2 условие но почему то не работает не могу выявить ошибку помогите пожалуйста

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
64
65
66
67
68
program z4;
const n=3;
type
prep=record
PIB:string;
grupnomer:byte;
spec:string;
end;
var
 A:array [1..n] of prep;
    b:array [1..n] of prep;
    s1:array [1..n] of char;
    mno:set of string;
    i,j,s,w,v,m,k:integer;
    o:string;
    P:STRING;
    g:string;
     l:string;
    begin
    for i:=1 to n do 
     begin 
        write('ФИО ');
         readln(A[i].PIB);
         write('spec');
         readln(A[i].spec);
          write('GRUPNOMER');
          Readln(a[i].grupnomer);
        end;
        for i:=1 to n do 
        begin
         b[i].PIB:=copy(a[i].PIB,1,4);
         b[i].grupnomer:=a[i].grupnomer;
         b[i].spec:=copy(a[i].spec,1,4);
        end;
        p:=' ';
      for i:=1 to n do
      if (a[i].spec)=('f') then 
       begin     
      p:=copy(a[i].PIB,1,4); 
        for j:=1 to n do 
         if (b[j].PIB)=(p) then 
          b[j].PIB:=' ';
        end; 
        write('учителя которые ведут у компьютерщиков',' '); 
   for i:=1 to  n do 
     begin
     write(b[i].PIB,' ');
     end;
     writeln ('преподователь который ведет в одной группе');
     for i:=1 to n do 
    l:=L+copy(A[i].PIB,1,1);
mno:=[a[1].PIB,a[2].PIB,a[3].PIB];
for i:=1 to length(l) do
begin
o:=copy(l,i,1);
w:=0;
for j:=1 to length(l) do
begin
    if o in mno then
    w:=w+1;
if w=2 then 
 for k:=1 to 3 do 
  if (l[k])=(o) then
   delete(l,k,1);
end;   
end;   
writeln('l=',l);
     end.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ