Хелпикс

Главная

Контакты

Случайная статья



Линейные программы». Опорный конспект



                                         «Линейные программы». Опорный конспект

 

programname_of_program;         

 

          {Раздел описаний}

 

const

          {Описание констант}

 

var

          {Описание переменных}

 

begin

 

          (* Команда 1 *)

          (* Команда 2 *)

          (* Команда 3 *)

          (* … *)

 

end.

Входные переменные

read(x);

readln(x);

Возведение в квадрат

sqr(x) →x2

Вывод переменных на экран

write(x);→ вывод без перехода на новую строку

writeln(x);→ вывод с переходом на новую строку

Листинг 1. «Сфера»

Задание:

Задано целочисленное число, означающее радиус сферы. Найти её площадь и объём.

 

Вводные данные:радиус сферы R.

 

Результирующие данные:площадь сферы S, объём сферы V.

 

Листинг:

program sphere;

 

var

R : integer;

S, V : real;

 

const

Pi = 3.1415926;

 

begin

 

{Получение радиуса}

write('Введите радиус сферы: ');

readln(R);

 

{Вычисляем площадь и объём}

S := 4 * Pi * sqr(R);

V := 4 / 3 * (Pi * sqr(R) * R);

 

{Выводим результаты на экран}

writeln('Площадь сферы: ', S:1:3, ' м2');

writeln('Объём сферы: ', V:1:3, ' м3');

 

end.

 

 

Тестирование программы:
Введите радиус сферы: 5 Площадь сферы: 314.159 м2 Объём сферы: 523.599 м3   Введите радиус сферы: 7 Площадь сферы: 615.752 м2 Объём сферы: 1436.755 м3

 
  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.