Методика підрахунку прямокутників різної форми

Натискаємо любу клавішу і повертаємося в головне меню, наводимо курсор на пункт “ЗАДАЧА №2” і натискаємо клавішу ENTER:

Натискаємо любу клавішу, задаємо початкові значення сили і кута кидка:

Натискаємо клавішу ENTER і очікуємо, доки камінь впаде у лунку:

Тепер достатньо натиснути будь-яку клавішу, і повертаємось в головне меню, вибираємо пункт “ЗАДАЧА №3”:

Натискаємо Escape – повертаємось в головне меню, вибираємо пункт “ПРО АВТОРА”:

Натискаємо Escape – повертаємось в головне меню, вибираємо пункт “ВИХІД В DOS”, і повертаємось в DOS чи в Turbo Pascal, в залежності від того звідки запускається програма.

8. Список використаної літератури

1)Т.Б. Романовский «Микрокалькуляторы в рассказах и играх», Радянська школа 1989

2)В.С. Волькенштейн «Сборник задач по общему курсу физики», Наука 1973

3)С.А. Абрамов «Задачи по программированию», Наука 1988

4)В.З. Аладьев, В.Г. Тупало «Turbo Pascal для всех», Техніка 1993

5)Р. Хершель «Turbo Pascal 4.0/5.0», МИК 1991.

ТЕКСТ ПРОГРАМИ

uses crt,graph;

const full : fillpatterntype = ($ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff);

brick: fillpatterntype = (255,1,1,1,255,16,16,16);

grass: fillpatterntype = ($55, $aa, $55, $aa, $55, $aa, $55, $aa);

g=9.8;var maxx,mode,device,lnum,pnum:integer;

ch:char;

done:boolean;

matr:array [1..8,1..8] of integer;

label 1;

procedure draw;

var str: string;

begin