![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Оператори уводу-виводу
Оператори уводу-виводу мають вид: - 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.
|