ИЗ 12 ( 5.2.2 ) (1272619)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

5

ИЗ №12 Вариант 9 ( 9+0 ) // 5.2.2

*********************************************************************************************

Задача: Сведения состоят из фамилий сотрудников и их телефонов. Вывести фамилии сотрудников, номера телефонов которых начинаются с цифр 361,362 или 273.

*********************************************************************************************

Таблица информации о переменных:

*********************************************************************************************

Тесты (4 шт.):

Поиск номеров, которые начинаются на "273"

Поиск номеров, которые начинаются на "273" и "361"

Поиск номеров, которые начинаются на "273", "361" и "362"

Получение отрицательного результата

Паскаль программа:

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.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов ответов (шпаргалок)