Question

Турбо паскаль Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника по заданной фамилии. Если такого нет в списке, напечатать: «В списке не значится»

Answer 1

Ок вот программа на Pascal.Abc.Net
она идет на любой паскаль даже фри паскаль

var
a: array [1..100] of string;
i, e: integer;
s: string;


begin
while i < 20 do
begin
i += 1;
read(a[i]);
end;


read(s);
i := 0;

while (i < 20) and (e = 0) do
begin
i += 1;
if a[i] = s then
e := 1 ;
end;


if e = 1 then
writeln('Найдено, ' + a[i])
else
writeln('Не нашлось');
end.

Answer 2

Для решения этой задачи на Turbo Pascal, можно воспользоваться следующим алгоритмом:

1. Создать массив или список из 20 элементов, содержащих фамилии сотрудников.
2. Запросить у пользователя ввод фамилии, которую он хочет найти.
3. Пройти по массиву или списку, сравнивая каждую фамилию с введенной пользователем.
4. Если фамилия совпадает, вывести номер сотрудника (индекс элемента + 1), который равен номеру элемента в массиве (так как массивы в Turbo Pascal индексируются с 0).
5. Если фамилия не найдена, вывести сообщение "В списке не значится".

Ниже приведен пример кода на Turbo Pascal для решения этой задачи:

pascalCopy code
program FindEmployee;

const
  MAX_EMPLOYEES = 20;

var
  employees: array[1..MAX_EMPLOYEES] of string;
  searchName: string;
  i, foundIndex: integer;
  isFound: boolean;

begin
  writeln('Введите список фамилий сотрудников:');
  for i := 1 to MAX_EMPLOYEES do
  begin
    write('Фамилия сотрудника ', i, ': ');
    readln(employees[i]);
  end;

  writeln('Введите фамилию, которую нужно найти:');
  readln(searchName);

  isFound := False;
  for i := 1 to MAX_EMPLOYEES do
  begin
    if employees[i] = searchName then
    begin
      foundIndex := i;
      isFound := True;
      break;
    end;
  end;

  if isFound then
    writeln('Номер сотрудника с фамилией ', searchName, ' равен ', foundIndex)
  else
    writeln('В списке не значится');
  
  readln;
end.

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