ОПЕРАТОР ВЫВОДА ИНФОРМАЦИИ НА ЭКРАН

 

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. Набрать программу: {пояснения к программе:}

Program Primer; uses crt;{ -название программы 'Primer'. Объявлен модуль crt}

Begin{ -начало программы}

Clrscr;{ -очистка экрана или окна вывода}

write('Y=', 6+3 ); readkey; { -вывод на экран результата Y=9.}

End.{ -конец программы}

2. Запустить (исполнить) программу { -нажать Ctrl+F9}

3. Вычислить: 17+34 ; 24,7+56 ; 24:3 ; 5-6 ; -9 ; 12/3/4 ; .

4. Вычислить: Ответ: -3.941621

Ответ:( » 4.1 )

Ответ:-0.2496655

5. Вычислить: и вывести ответ в центре экрана.

РЕШЕНИЕ МАТЕМАТИЧЕСКИХ ВЫРАЖЕНИЙ

ЛИНЕЙНАЯ ПРОГРАММА

 

ЛИНЕЙНОЙ называют программу, реализующую конструкцию следования, когда инструкции расположены одна под другой и последовательно выполняются.

 

:= - символ присваивания переменным значений;

x:=3.4 - инструкция присваивания (переменной х присваивается значение 3.4).

 

readln(а); - стандартная процедура ввода значения переменной а с клавиатуры

 

З А Д А Н И Я:

 

1. Набрать готовую программу вычисления площади прямоугольника S=a*b.

Во всех программах не забывать в начале Uses crt; и в конце readkey: или readln;

 

Program Area; Uses crt; { Л И Н Е Й Н А Я ПРОГРАММА (см. конспект)}

var a,b,s: real; { описание переменных. Тип вещественный }

Begin { начало программы S }

ClrScr; { очистка экрана. От англ. CLeaR SCReen }

write('a='); readln(a); {ввод длины и переход на следующую строку}

write('b='); readln(b); {ввод ширины и переход на следующую строку}

s:=a*b; { вычисление по формуле }

write('S=',s); { вывод результата на экран }

readkey;{удержание изображения до нажатия клавиши}

End. { конец программы Area }

 

Запустить программу. Получить результат.

 

2. Добавить в программу комментарий к вводу переменных и выводу ответа

(Например: Введите сторону а= Площадь прямоугольника S= ).

3. Составить программу вычисления площади круга:

4. Составить программу вычисления площади треугольника:

1) выделить целую часть результата;

2) выделить дробную часть результата;

3) получить целый остаток от деления;

4) округлить результат

5) округлить до целого, не превосходящего результат.

 

5. Составить программу вычисления выражения: Y=Sin(a+b/2)

при a=15, b=30 (градусов).

 

РЕШЕНИЕ ФИЗИЧЕСКИХ ЗАДАЧ

 

ОСОБЕННОСТИ:

 

- греческие буквы надо заменять на латинские буквы;

- описать назначение переменных;

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

- результат должен иметь указание единиц измерения;

- особого внимания требует правильный перевод единиц измерения физических величин;

- постоянные физические величины описываются в разделе описания констант.

- на Паскале нет различия между строчными и заглавными буквами: G=g, А=а.

 

Составить программу вычисления силы Всемирного тяготения:

 

Program Ff; Uses crt;

const g=6.672E-11;{ гравитационная постоянная }

var m1,m2, { массы взаимодействующих тел }

r, { расстояние между точечными телами }

f: real; { сила Всемирного тяготения }

Begin

ClrScr;

write('Введите массу m1='); readln(m1);

write('Введите массу m2='); readln(m2);

write('Введите расстояние r='); readln(r);

f:=g*m1*m2/(r*r);

writeln; { получение пустой строки }

write('Сила притяжения F=',f:8:4,' Н');

readkey;

End.

 

З А Д А Н И Я:

1. Набрать программу вычисления силы Всемирного тяготения.

Запустить программу

Вычислить при m1=m2=50 кг и r=1 м. Ответ перевести в мг силы.

2. Составить программу вычисления кинетической энергии

 

3. Подчеркнуть результат звездочками.