Работа с текстовыми файлами (Создание двух модифицированных программ)

Федеральное агентство по образованию РФ

 

Санкт-Петербургский государственный электротехнический
университет "ЛЭТИ" им. В. И. Ульянова (Ленина)

 

Кафедра телевидения и видеотехники

Отчёт по лабораторной работе №2:

Работа с текстовыми файлами.

                                                                    Выполнил: Евстигнеев Е.

                                                                                   Осадчук С.

                                                Группа 0105

                                                                                 Преподаватель: Мончак А.М.

Санкт-Петербург

2011

1. Создать две модифицированные программы, отвечающих заданым ниже требованиям:

Программа а) - на экран ЭВМ выводится N (N устанавливается оператором по

       запросу программы) окон размером 10х4, расположенных

       случайным образом. В каждом окне небходимо вывести информацию

       о его номере (1-я строка) и координатах его центра (2-я стока).

       текст должен быть центрирован. Цвет фона в окнах выбирается

       случайным образом, цвет шрифта - дополнительный к цвету фона.

Программа б) - организовать перемещение одного окна по экрану так, чтобы оно

случайным образом меняло свое положение на каждое нажатие

любой клавиши. Выход из программы осуществлять поcле прохождения

заданного по запросу программы числа перемещений. В окне вывести

информацию и координатах центра. Цвет окна случаен, текста -

дополнителен к цвету окна.

2. Постановка задачи для ЭВМ.

Имя переменной	Тип	Назначение
x,y,dx,dy	byte
c	char
number,i	integer
zvet1,zvet2	integer

3. Текст программы а) :

Uses Crt;                       

   Var

           x,y,dx,dy    :byte

           c                 :char;     

           number,i:integer;  

           zvet1,zvet2:integer;  

   Begin

   TextMode(3);                    

   TextBackground(0);               

   clrscr;                         

   gotoxy(1,1);                    

write('Vvedite koli4estvo okon');

readln(number);

       ClrScr;                     

       randomize;

       for i:=1 to number do begin 

             zvet1:=random(7)+1;   

             x:=random(70)+1;      

             y:=random(21)+1;      

             dx:=10;               

             dy:=4;                

             Window(x,y,x+dx,y+dy);

             TextBackground(zvet1);

             TextColor(15-zvet1);  

             ClrScr;               

             GotoXY(3,2);         

             Write('Okno N',i);   

             GotoXY(3,4);               

             Write('X',x:2,' ','Y',y:2);

             c:=readkey;           

             end;

   End.

Текстпрограммыб):

Uses Crt;                       

   Var

           x,y,dx,dy    :byte;     

           c            :char;     

           number,i     :integer;  

           zvet1,zvet2  :integer;  

   Begin         

   TextMode(3);                    

   TextBackground(0);             

   clrscr;                         

   gotoxy(1,1);                   

write('Vvedite koli4estvo peremestchenii');                                            

readln(number);

       ClrScr;                     

       randomize;

       for i:=1 to number do begin 

             zvet1:=random(7)+1;   

             x:=random(70)+1;     

             y:=random(21)+1;      

             dx:=10;               

             dy:=4;                

             Window(x,y,x+dx,y+dy);

             TextBackground(zvet1);

             TextColor(15-zvet1);  

             ClrScr;               

             GotoXY(3,2);         

             Write('Okno N',i);   

             GotoXY(3,4);               

             Write('X',x:2,' ','Y',y:2);

             c:=readkey;           

             textbackground(0);    

             clrscr;               

             end;

End.

4. Инструкция пользователя. Запустить файл (*.exe), первого файла, следуйте инструкциям на экране, затем повторите действия со вторым.