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

Програмування циклічного алгоритму в Паскалі

Читайте также:
  1. Загальна постановка задачі лінійного програмування.
  2. Лабораторна робота № 1. Графоаналітичний метод рішення задач лінійного програмування.
  3. Лабораторна робота № 2. Обчислювальні методи лінійного програмування.
  4. Модифікації алгоритму простих вставок.
  5. Опис алгоритму програми
  6. Поняття алгоритму
  7. Прогнозування і програмування врожаїв сільськогосподарських культур
  8. Програмування розгалуженого алгоритму в Паскалі.
  9. Скласти програми лінійного алгоритму
  10. Скласти програми розгалуженого алгоритму
  11. Скласти програми циклічного алгоритму

1. Скласти програму обчислення значення суми числового ряду:

 

PROGRAM SUM;

VAR

X,Y,S1,S2,S:INTEGER;

BEGIN

S1:=0; S2:=0;

FOR X:=10 TO 20 DO

S1:=S1+X;

FOR Y:=20 DOWNTO 10 DO

S1:=S1+Y;

S:=S1+S2;

WRITELN (‘значение суммы S = ’,S)

END.

 

2. Скласти програму табулювання функції у дійсного аргументу х на відрізки

(-20,20) з кроком 0,5, використовуючи оператор циклу з передумовою:

cos(xb)2, якщо -20£x£0

y= , якщо 0<х£20

де: a,b – цілі числа.

 

PROGRAM TAB;

CONST

X0=-20; XN=20; HX=0,5;

VAR

X,Y:REAL;

A,B:INTEGER;

BEGIN

READLN (A,B);

X:=X0;

WHILE X<=XN DO

BEGIN

IF X<=0

THEN Y:=COS(SQR(X*B))

ELSE Y:=SQRT(A+B*EXP(3*LN(X)));

WRITELN (‘при x=’,X, ‘y=’Y);

X:=X+HX

END

END.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)