Оператор вывода информации на экран

write(a); - стандартная процедура вывода значения переменной «а» или результата

вычисления арифметического выражения на экран

writeln(а); - вывод с последующим переводом строки

writeln; - стандартная процедура перевода курсора на новую строку

write(x:8:4) - форматированный вывод (8-общее кол-во позиций, 4-дробная часть)

Например: на экране: если А:=2;

Write(a); 2

Writeln(a); 2 и переход на следующую строку

Write(‘a=’,a); a=2

Write(‘a=’,a,’ метров’); a=2 метров

Write(‘Y=’, 4+6); Y=10

Write(‘S=’,a,’*’,3,’=’,a*3); S=2*3=6, если a=2

Write(‘z=’,z:8:4); z=135.6432, если z=1,356432223e02

Writeln(‘погода’); погода

Writeln(‘хорошая’); хорошая

Write(‘погода ’);

Writeln(‘хорошая’); погода хорошая

Для вывода в заданную позицию экрана перед командой Write используется команда GotoXY(C,R); которая устанавливает курсор в позицию C строки R. Размеры текстового экрана в Turbo Pascal 7.0 80х25. 80-количество позиций в строке, 25-количество строк.

Следовательно, C может меняться от 1 до 80, а R – от 1 до 25 (обязательно целые числа!).

Например: GotoXY(38,12); Write(‘Hello’); - выводит слово ‘Hello’ в центре экрана.

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗАДАНИЯ:

Задание №1. Вычислить значение у = 4+ , если х = tg (a+1).

Б

Программа:

Program Znak;

Var

a,x,y:real;

Begin

Write('a=');Readln(a);

x:=sin(a+1)/cos(a+1);

y:=4+sqrt(abs(15-sqr(x)));

Writeln('y=',y:5:3);

Readln;

End.

лок-схема:

Задание №2. Вычислите площадь и периметр прямоугольника, если известны его длина и ширина.

Задание №3. Вычислить расстояние между автомобилями, если известны их координаты на местности.

Задание №4. Завод выпустил за месяц N шт. изделий. Из них M шт. было забраковано. Определить процент брака и количество качественных изделий.

Б лок-схема:

Задание №5.

Согласно своего варианта решить задачу:

1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.

2. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.

3. Треугольник задан координатами своих вершин. Найти площадь треугольника.

4. Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.

5. По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.

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

7. Определить периметр правильного n-угольника, описанного около окружности радиуса r.

8. Дана сторона равностороннего треугольника. Найти площадь этого треугольника.

9. Определить силу притяжения F между телами массы m₁ и m₂ , находящимися на расстоянии r друг от друга.

10. Найти сумму членов арифметической прогрессии a, a+ d ,…, a+(n-1)d по данным значениям a, d, n.

11. Вычислить расстояние между двумя точками с координатами x ₁, y₁ и x₂, y₂

12. Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.

13. Дан радиус круга. Найти длину стороны квадрата, вписаного в квадрат.

14. Даны координаты двух точек x ₁, y₁ и x₂, y₂ Вычислить координаты середины отрезка.

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