Помогите написать программу на записи

[sisaw]

Написать программу, которая выводит на экран сведения об учителях школы, у которых нет домашнего телефона. В массив данных об учителях школы включены фамилия, имя, отчество, адрес, телефон (у кого он есть).

[Streletz]

Какой хоть язык программирования?

[sisaw]

Сообщение от Streletz

Какой хоть язык программирования?

Язык паскаль

[Streletz]

Язык паскаль

Отлично!
Самостоятельные попытки были? Ваша наработки?

[sisaw]

Сообщение от Streletz

Отлично!
Самостоятельные попытки были? Ваша наработки?

Попытки былы но они не правильные. Записи тема для меня не понятна

[Streletz]

Сообщение от sisaw

Попытки былы но они не правильные. Записи тема для меня не понятна

Попытки в студию с описанием, что именно не понятно! Тогда, возможно, удастся что-то подсказать.

[sisaw]

Сообщение от Streletz

Попытки в студию с описанием, что именно не понятно! Тогда, возможно, удастся что-то подсказать.

только мне надо через оператор with я даже не представляю куда вставлять и что

program zap; 
type
    Base=record
   
    FIO,Adr,Tel:string;
end;
data_b=array[1..1000] of Base;
procedure Fill_DB (var DB:data_b; var n: integer);
var i,j,code:integer;
    s,fFio,fAdr,fTel:string;
begin
fFio:='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. -';
fAdr:='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя-0123456789 ';
fTel:='0123456789 ';
 repeat
    write ('Введите количество добавляемых контактов: ');
    readln(s);
    val(s,n,code);
       if (code<>0) or (n<=0) then
       writeln('Некорректный ввод!');
 until (code=0) and (n>0);


 for i:=1 to n do
 with DB[i] do
  begin
  writeln('Вы вводите [',n,'] контакт(ов).');
  writeln('Ввод контакта [',i,']:');
     repeat
        code:=0;
        write ('Введите ФИО: ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fFIO)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              FIO:=s;
     until code=0;
     repeat
        code:=0;
        write ('Введите адрес: ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fAdr)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              Adr:=s;
     until code=0;
     repeat
        code:=0;
        write ('Введите телефон (ввести пробел, если телефона нет): ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fTel)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              Tel:=s;
     until code=0;

 end;
end;
procedure InputNoTel (var DB:data_b; var n: integer);
var i,count:integer;
begin
count:=0;
writeln('Учителя у которых нет дом. телефона:');
  for i:=1 to n do
     with DB[i] do
  begin
       if (Tel=' ') then
          begin
          writeln('ФИО: ',FIO,' | Адрес: ',Adr);
          count:=count+1;
          end;
  end;
if count=0 then writeln('Таких учителей нет!');
end;
var
   DB:data_b;
   n,i:integer;
begin

Fill_DB (DB,n);
InputNoTel(DB,n);
end.

[Stilet]

только мне надо через оператор with

А ты присмотрись: Этот оператор в код уже есть.

[sisaw]

Сообщение от Stilet

А ты присмотрись: Этот оператор в код уже есть.

точнее мне не надо через процедуру

[ZX Spectrum-128]

program zap;
type
    Base=record

    FIO,Adr,Tel:string;
end;
data_b=array[1..1000] of Base;

var i,j,code:integer;
    s,fFio,fAdr,fTel:string;
    n,count:integer;
    db:data_b;
begin
fFio:='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя. -';
fAdr:='АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя-0123456789 ';
fTel:='0123456789 ';
 repeat
    write ('Введите количество добавляемых контактов: ');
    readln(s);
    val(s,n,code);
       if (code<>0) or (n<=0) then
       writeln('Некорректный ввод!');
 until (code=0) and (n>0);


 for i:=1 to n do
 with DB[i] do
  begin
  writeln('Вы вводите [',n,'] контакт(ов).');
  writeln('Ввод контакта [',i,']:');
     repeat
        code:=0;
        write ('Введите ФИО: ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fFIO)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              FIO:=s;
     until code=0;
     repeat
        code:=0;
        write ('Введите адрес: ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fAdr)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              Adr:=s;
     until code=0;
     repeat
        code:=0;
        write ('Введите телефон (ввести пробел, если телефона нет): ');
        readln(s);
        for j:=1 to length(s) do
           if pos(s[j],fTel)=0 then
           code:=1;
              if code<>0 then
              writeln('Некорректный ввод!') else
              Tel:=s;
     until code=0;

 end;
count:=0;
writeln('Учителя у которых нет дом. телефона:');
  for i:=1 to n do
     with DB[i] do
  begin
       if (Tel=' ') then
          begin
          writeln('ФИО: ',FIO,' | Адрес: ',Adr);
          count:=count+1;
          end;
  end;
if count=0 then writeln('Таких учителей нет!');
end.