Табличная форма вывода результатов

Для рисовки таблиц в программах на Паскале удобнее использовать следующие специальные символы(символы псевдографики).

_{218 194 191}

é ù ½ 179

^{195 197 180} ¾ 196

₁₉₂ ë _{193 217} û

Для набора этих символов в тексте программы нужно нажать клавишу ALT и,не отпуская ее,набрать код символа(число слева от cимвола) на дополнительной цифровой клавиатуре.

При выводе таблицы на экран нужно программным путем очищать экран, чтобы вывод таблицы начинался с верхней строки экрана.

Оператор очистки экрана имеет вид: CLRSCR;

Этот оператор можно использовать в программе,только если после заголовка программы указать: USES CRT;

Задача. Вывести на экран таблицу значений функции y=sin(x) в точках 0°,10°,20°,...,90°

1) Расчет таблицы.

Прежде чем приступать к написанию программы,нужно

рассчитать основные размеры будущей таблицы.

		отступ

угол	sin(x)

1 графа. Для вывода значения угла достаточно двух позиций + по одной позиции отступа от левой и правой границы. Итого получается 4 позиции.

2 графа. Для вывода значения функции возьмем 8 позиций (чтобы число могло поместиться и в форме Е), на дробную часть 5 позиций, т.е. формат будет:8:5 + по одной позиции отступа от правой и левой границы. Итого получается 8+2=10 позиций.

Ширина таблицы. 4 + 10 + 3(на границы) = 17

Отступ от края экрана: (80-17):2» 31

2) программа:

program tabl;

uses crt;

var y:real;x:integer;

begin

clrscr;

writeln(' ':31,' ');

writeln(' ':31,’ угол sin(x) ');

writeln(' ':31,' ');

x:=0;

repeat

y:=sin(x*pi/180);

writeln(' ':31,'½ ',x:2,' ½ ', y:8:5,' ½');

x:=x+10;

until x>90;

writeln(' ':31, ' ');

end.

Задача. Выдать на экран строку из 20 звездочек, начиная с 16-ой позиции.

1 способ. writeln(' ':15,'********************');

2 способ. write(' ':15);

for i:=1 to 20 do write('*');

writeln;

Задача. Вывести на экран корни уравнения:

, если "а" меняется от 1 до 10 с шагом 0,5.

1) расчет таблицы.

a	корень1	корень2

1 графа. 4 позиции на число "а" в формате:4:1 + по одному отступу от границ. Итого 6 позиций.

2,3 графа. 10 позиций на число в формате:10 + по одному отступу от границ.Итого 12 позиций.

Ширина таблицы. 6 + 12 + 12 + 4(на границы) = 34

Отступ. (80-34):2» 23

2) программа.

program prim;

uses crt;

var a,x1,x2,d:real; i:integer;

begin

clrscr;

writeln(' ':23,' ');

writeln(' ':23,' a корень1 корень2 ');

writeln(' ':23,' ');

a:=1;

repeat

d:=a+4*42*sin(a);

if d>=0 then begin

x1:=(-sqrt(a)+sqrt(d))/(2*sin(a));

x2:=(-sqrt(a)-sqrt(d))/(2*sin(a));

writeln(' ':23,'½ ',a:4:1,' ½ ', x1:10,' ½ ',x2:10,' ½'); end;

a:=a+0.5;

until a>10;

writeln(' ':23,' ');

end.