Учебно-методический комплекс дисциплины для обучающегося «Языки программирования» для специальности 5В010900 Математика

Запрос выводится с новой строки для каждого поля. Например:

Телевизор
Название . . . . . . . . . РЕКОРД

Цена (тыс.) . . . . . . . 3000

Диагональ . . . . . . . . 59

Изображение (ц/ч) . . Ц

Производитель . . . . .

Завод . . . . . . . . Фотон

Город . . . . . . . . Москва

Директор . . . . . Иванов

program zapis;

const maxn = 30;

type TV = record

Name : string[20];

Price : 1 .. 32000;

Diagonal : 1 .. 50;

Color : char;

Proizv : record

city : string[25];

factory : string[50];

director : string[30];

end;

end;

var f : tele;

was : boolean;

z:TV;

writeln ('Ввод записей');

writeln ('Признак окончания ввода - *');

assing (f,'f.dat');

rewrite(f);

writeln (' Телевизор ');

while z.name <> ' * ' do

begin

write (' Цена (тыс.). . . . . .');readln(z.Price);

write (' Изображение (ц/ч). . .');readln(z.Color);

writeln (' Производитель. . . . . ');

with z.Proizv do

begin

write (' Завод . . . . . . .');readln(city);

write (' Директор. . . . . .');readln(director);

tnd;

write (f,z)

write ('Название .......'); readln (z.name)

end;

close (f);

reset (f);

was:=false; {признак того, что искомые телевизоры найдены)

writeln ('Названия телевизоров стоимостью менее 2 млн.руб.');

while not eof(f) do

begin

if z.price < 2000 then

begin

writeln (z.name);

end

if was=false then

writeln ('Не найдены');

close(f)

1. 
   Дан файл f, компоненты которого являются целыми числами. Найти наибольший и наименьший из компонентов файла.
   
2. 
   Дан файл f, компоненты которого являются целыми числами. Найти количество четных чисел и количество квадратов нечетных чисел среди компонентов файла.
   
3. 
   Даны символьные файлы f1 и f2.Поменять местами содержимое файлов, не используя стандартных процедур.
   
4. 
   Дан файл f, компоненты которого являются действительными числами. Найти сумму и произведение компонентов файла, а также значение последнего элемента.
   
5. 
   Дан файл f, компоненты которого являются символами. Получить копию файла в файле g, не используя стандартных процедур.
   
6. 
   Дан файл f, компоненты которого являются целыми числами. Записать в файл g все четные числа файла f, а в файл n-все нечетные.
   
7. 
   Дан файл f, компоненты которого являются символами. Записать в файл g компоненты файла f в обратном порядке.
   
8. 
   Дан файл f, компоненты которого являются целыми числами.. Переписать компоненты файла f в файл g, так чтобы в файле g сначала или отрицательные, затем положительные числа.
   
9. 
   Даны символьные файлы f и g. Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой компоненты, в которой файлы f и g отличаются между собой.
   
10. 
    Дан символьный файл f. Найти самое длинное слово в файле.
    
11. 
    Дан текстовый файл f. Получить самую длинную строку файла.
    
12. 
    Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g.
    
13. 
    Дан текстовый файл f и строка s. Получить все строки файла f, содержащие в качестве фрагмента строку s.
    
14. 
    Дан текстовый файл f. Получить самую короткую строку файла.
    
15. 
    Дан текстовый файл f. Проверить соответствие числа открывающих и закрывающих скобок.
    
16. 
    Даны текстовые файлы f и g. Определить совпадают ли компоненты файлов.
    
17. 
    Дан текстовый файл f. Определить сколько строк в файле начинаются с символа 'р'.
    
18. 
    Дан текстовый файл f. Вывести на печать последнюю из строк длиною 45 символов.
    
19. 
    Дан текстовый файл f. Исключить пробелы, стоящие в начале его строк. Результат поместить в файл f1.
    
20. 
    Дан текстовый файл f. Записать в файл g строки, содержащие менее 50 символов.