Пример решения задачи

Индивидуальное задание

Дано 50 чисел. Найти минимальный элемент в массиве и сложить его с 3-м элементом. При решении задачи используйте ввод-вывод данных при помощи файлов.

Описание работы

1. Выберите алгоритм решения задачи.

2. Выберите форму представления данных. Используйте следующие типы переменных: INTEGER, REAL, BOOLEAN, CHAR.

3. Для ввода массива используйте файл. Результат решения задачи выведите на экран дисплея при помощи файла.

4. Выберите имена основных идентификаторов. Выберите тип индекса и тип элементов массива. Обратите внимание на форму описания двумерных массивов. Введите текст программы.

5. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

6. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\Lr5.PAS, если программа сохраняется на жесткий диск или A:\ Lr5.PAS, если программа сохраняется на дискету.

7. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

8. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

9. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

10. Выведите полученные результаты на печать.

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

Program var2 ;

Uses crt ;

var k : array[1..10] of real ;

i : integer ; f : text ; s : real ; m : real ;

begin

clrscr ;

assign(f,'sort1.dat') ;

reset(f) ;

for i := 1 to 10 do

read (f,k[i]) ;

for i:=1 to 10 do

write(k[i] : 4 : 2, ' ') ;

writeln ;

m := k[1] ;

for i := 1 to 10 do

if k[i] < 0 then

begin

if k[i] < m then

m := k[i] ;

end ;

writeln(m : 4 : 2) ;

s := m  k[10] ;

writeln('p= ', s : 4 : 2) ;

readln

end.

Примеры решения задач

Пример 1:

С помощью символа ‘ * ’ построить изображение ромба, центр которого будет смещен вправо относительно начала экрана на число позиций, равное заданному числу. Изображение ромба сохранить во внешнем файле. Вывести на экран дисплея изображение ромба, задав цвет фона и фигуры.

Изображение ромба выводим дважды. Первый раз – ромб заполняем мигающими символами разной расцветки, второй раз – ромб заполняем символами светло зеленого цвета.

Program Romb ;

Uses Crt ;

Const

Blink = 128 ; ( * константа для организации мерцания символов * )

Var

i, j, k, z : integer ; x: char ; f: text ;

Begin

Assign(f,’ff.pas’) ;

Rewrite(f) ;

Clrscr ;

(* построить изображение ромба и запомнить в файле *)

j := 1; k :=1;

While j <> 10 do

Begin

For i :=1 to z-j do

Write(f, ‘ ’) ;

For i :=1 to k do

Write(f, ‘*’) ;

Writeln( f ) ;

j := j+1 ; k := k+2 ;

End ;

While j <> 0 do

Begin

For i :=1 to z-j do

Write(f, ‘ ’) ;

For i :=1 to k do

Write(f, ‘*’) ;

Writeln( f ) ;

j := j-1 ; k := k-2 ;

End ;

Close(f) ;

(* Установить красный цвет фона *)

TextBackGround(4) ;

Clrscr ;

(* Вывести из файла изображения ромба на экран мигающими *)

(* символами разных цветов *)

Reset(f);

While not eof(f) do

Begin

Read( f , x );

TextColor(Random(16)+Blink);

Write(x);

End;

Close(f);

Readln;

(* Установить светло-синий цвет фона *)

TextBackGround(9) ;

Clrscr ;

(* Вывести из файла изображения ромба на экран *)

(* светло-зелеными символами *)

Reset(f);

TextColor(10);

While not eof(f) do

Begin

Read( f , x );

Write(x);

End;

Close(f);

Readln;

End.