IF (NGOD.NE.1962) GOTO 4

Здесь в условии применён элемент обратной логики: если считанный из файла год не равен 1962, тогда производится переход на метку 4 и считывается следующая запись. В область, расположенную ниже, попадаем только тогда, когда считанный год рождения равен 1962.

NI=INDEX(FIO,’ ’)

Чтобы найти имя Михаил, выделяем номер индекса, в котором находится символ пробел после фамилии. Этот индекс присваивается переменной NI.

IF (FIO(NI+1:NI+7).EQ.’Михаил’) WRITE (4,9) FIO, NGOD,

*DOM,NTAB,TEL

С помощью этой записи вылавливаем шпиона: если в текстовой переменной FIO, начиная с индекса NI+1 по индекс NI+7, встречается ‘Михаил’, то в файл WYWOD печатает Ф.И.О., год рождения, домашний адрес, номер по табелю, номер телефона. NI+1:NI+7 – текстовая подцепочка.








Дата добавления: 2015-06-10; просмотров: 558; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2022 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.