Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Оператори уводу-виводу






 

Оператори уводу-виводу мають вид:

- read (список уводу);

- readln (список уводу);

- write (список виводу);

- writeln (список виводу).

Оператори readln і writeln здійснюють після уводу і виводу перехід до нового рядка. У списках уводу - виводу перелічуються через кому імена змінних. Наприклад:

 

read(k, ab); writeln(y1, zk).

 

На друк можна виводити довільний набір символів, який взято в апострофи, наприклад:

writeln(’ x1=’, x1).

Для перемінних, які виводяться, можна явно вказати число позицій, наприклад, для цілої перемінної:

write(’k=’, k: 6),

 

а для дійсної:

write(’k=’, k: 10: 4),

 

де 10 - загальне число позицій, з них 4 - під дробну частину.

 

Приклади виконання завдання лабораторної роботи

 

Приклад 1. Обчислити y = 2cos2x, де x=2lna; a=6, 7.

 

Блок-схема

 
 

Порядок роботи:

Крок 1. Уводимо a.

Крок 2. Обчислюємо x = 2lna.

Крок 3. Обчислюємо y = 2cos2x.

Крок 4. Друкуємо x, y.

Крок 5. Останов.

 

Приклад 2. Скласти програму для обчислення функції

 

,

 

де b = x(arctgy + e-x+3); x = 4, 2; y = 1, 7.

Паскаль - програма для даного прикладу має вид

 

program pr2;

var x, y, a, b, c, d: real;

begin

x: =4.2; y: =1.7;

b: =x*(arctan(y)+exp(-x+3));

c: =sqrt(abs(x-1))-exp(ln(abs(b))/3);

d: =1+sqr(x)/2+sqr(sqr(y))/5;

a: =c/d;

writeln(‘ b=‘, b, ’ a=‘, a)

End.

 

Приклад 3. Трикутник заданий довжинами сторін. Знайти радіуси вписаного й описаного кола.

Якщо сторони трикутника позначити через а, b, c, напівпериметр через р, а площу через s, то можемо записати:

 

.

 

Паскаль-програма для даного прикладу має вид

 

program pr3;

uses crt;

var a, b, c, p, s, rb, rm: real;

z: char;

begin clrscr;

WRITE('УВЕДИ СТОРОНИ ТРИКУТНИКА: ');

readln(a, b, c);

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

rm: =s/p;

rb: =a*b*c/(4*s);

writeln(‘ a= ‘, a, ‘ b= ‘, b, ’ c= ‘, c);

writeln(‘ rm= ‘, rm, ‘ rb= ‘, rb);

z: =readkey

end.

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.