ИЗ 12 ( 5.2.2 ) (Задача с экзамена)
Описание файла
Файл "ИЗ 12 ( 5.2.2 )" внутри архива находится в следующих папках: Задача с экзамена, ИЗЭШКИ 15 ВАРИАНТ 2 СЕМ. 99% правильно, 12. Документ из архива "Задача с экзамена", который расположен в категории "". Всё это находится в предмете "информатика" из 2 семестр, которые можно найти в файловом архиве НИУ «МЭИ» . Не смотря на прямую связь этого архива с НИУ «МЭИ» , его также можно найти и в других разделах. .
Онлайн просмотр документа "ИЗ 12 ( 5.2.2 )"
Текст из документа "ИЗ 12 ( 5.2.2 )"
5
ИЗ №12 Вариант 9 ( 9+0 ) // 5.2.2
*********************************************************************************************
Задача: Сведения состоят из фамилий сотрудников и их телефонов. Вывести фамилии сотрудников, номера телефонов которых начинаются с цифр 361,362 или 273.
*********************************************************************************************
Таблица информации о переменных:
Фамилии сотрудников | Код телефона сотрудника | Номер телеф. сотрудника | |
Имя переменной | NAME | COD | NOM |
Тип переменной | STRING [7] | STRING [3] | INTEGER |
*********************************************************************************************
Тесты (4 шт.):
Поиск номеров, которые начинаются на "273"
№ | Входные данные | Выходные данные | ||
Фамилии сотрудников | Номер телефона | Фамилии сотрудников | Номер телефона | |
1 | Azarov Bascov Petrov Ivanov Kozlov | 273-555 292-813 319-421 713-824 815-154 | Azarov | 273-555 |
Поиск номеров, которые начинаются на "273" и "361"
№ | Входные данные | Выходные данные | ||
Фамилии сотрудников | Номер телефона | Фамилии сотрудников | Номер телефона | |
2 | Azarov Bascov Petrov Ivanov Kozlov | 273-555 292-813 361-421 713-824 815-154 | Azarov Petrov | 273-555 361-421 |
Поиск номеров, которые начинаются на "273", "361" и "362"
№ | Входные данные | Выходные данные | ||
Фамилии сотрудников | Номер телефона | Фамилии сотрудников | Номер телефона | |
3 | Azarov Bascov Petrov Ivanov Kozlov | 273-555 292-813 361-421 713-824 362-154 | Azarov Petrov Kozlov | 273-555 361-421 362-154 |
Получение отрицательного результата
№ | Входные данные | Выходные данные | ||
Фамилии сотрудников | Номер телефона | Фамилии сотрудников | Номер телефона | |
4 | Azarov Bascov Petrov Ivanov Kozlov | 279-555 292-813 319-421 713-824 815-154 | К СОЖАЛЕНИЮ, СОТРУДНИКИ С ТАКИМИ НОМЕРАМИ НЕ НАЙДЕНЫ |
Паскаль программа:
Program NUMBERS;
TYPE TS=RECORD
NAME:string[7];
COD:string[3];
NOM:integer;
end;
VAR NUM:TS;
NS:integer;
FL:boolean;
fp1,fp2:text;
BEGIN
ASSIGN(fp1,'TEST1.pas');
ASSIGN(fp2,'TABLICA1.pas');
RESET(fp1);
REWRITE(fp2);
writeln(fp2,'FAMILIYA SOTRUDNIKA',' ':2,'|',' ':2,'NOMER TELEFONA');
writeln(fp2,'---------------------------------------');
NS:=0;
FL:=false;
while not EOF (fp1) do
with NUM do
begin
readln(fp1,NAME,COD,NOM);
IF (POS('361',COD)>0) or (POS('362',COD)>0) or (POS('273',COD)>0) THEN
begin
NS:=NS+1;
if NS=1 then
begin
writeln(fp2,' ':7,NAME,' ':7,'|',' ':5,COD,NOM);
NS:=NS-1;
FL:=true;
end;
end;
end;
if FL=false then
begin
writeln(fp2,' ':14,'K SOJALENIY,');
writeln(fp2,'SOTRUDNIKI S TAKIMI NOMERAMI NE NAIDENY');
end;
CLOSE(fp1);
CLOSE(fp2);
END.