Вивід результату обчислення

Завдання 1.Написання алгоритмів лінійної структури

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

Завдання: обчислити

1. Опис рішення задачі

Задача: Обчислити

Дано: 3, х – коефіцієнти рівняння

Потрібно: y

Зв’язок:

При:

2. Сценарій рішення задачі

введення необхідних даних:

повідомлення “Введіть Х”

введення значення змінної Х

Обчислення У

Вивід результату обчислення

Повідомлення “У=”,У

Кінець

3. Схема алгоритму рішення задачі

4. Текст програми на мові програмування Паскаль

PROGRAM Z_4;

VAR

X,Y:Real;

BEGIN

WRITELN('Input X');

READLN(X);

Y:=EXP((X+1)*ln(3)*Sin(x)

WRITELN('For Х=’,X:8:3,’output Ý= ',Y:8:3);

END.

Завдання 2: обчислення значення якщо

1. Опис рішення задачі

Задача: Обчислити якщо

Дано: a,t,b – коефіцієнти рівняння

Потрібно: S

Зв’язок:

При:

1. Сценарій рішення задачі

введення необхідних даних:

повідомлення “Введіть a, t, b”

введення значень змінних a, t, b

Обчислення S

обчислюємо значення S залежно від величини значення a*t

якщо , то

якщо , то

якщо , то

Вивід результату обчислення

Повідомлення “S=”,S

Кінець

1. Схема алгоритму рішення задачі

1. Текст програми на мові програмування Паскаль

PROGRAM Z_7;

VAR

A,B,T,S:REAL;

BEGIN

WRITELN('Input A,B,T');

READLN(A,B,T);

IF A*T>1 THEN S:= EXP(-A*T)*COS(A*T) ELSE

IF A*T=1 THEN S:= COS(A*T) ELSE

S:= A*T+B;

WRITELN(' S=’,S:8:3);

END.