Головна сторінка Випадкова сторінка КАТЕГОРІЇ: АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія |
Тема 19. Громадянство УкраїниДата добавления: 2015-10-19; просмотров: 1841
Задание: Составить схему алгоритма для вычисления значений функции от значения x1 = 1 до значения xn = 5 с шагом Δx=0,5. Решение: Блок-схемы алгоритмов вычислений и тексты программ с использованием операторов цикла while, repeat, for приведены ниже.
1) While Рисунок 3.1
Да Нет
Текст программы: program p3a; var x,y,xk,xn,dx:real; begin write(‘Введите начальное, конечное и шаг=’); readln(xn,xk,dx); x:=xn; writeln(' Таблица'); writeln('┌─────┬─────┐'); writeln('│ X │ Y │'); while x<=xk do begin y:=ln(sqr(x)+2*x+10); writeln('├─────┼─────┤'); writeln('│',x:5:2,'│',y:5:2,'│'); x:=x+dx; end; writeln('└─────┴─────┘'); readln; end. 2) Repeat Рисунок 3.2
Текст программы: program p3a; var x,y,xk,xn,dx:real; begin write(‘Введите начальное, конечное и шаг=’); readln(xn,xk,dx); x:=xn; writeln(' Таблица'); writeln('┌─────┬─────┐'); writeln('│ X │ Y │'); repeat y:=ln(sqr(x)+2*x+10); writeln('├─────┼─────┤'); writeln('│',x:5:2,'│',y:5:2,'│'); x:=x+dx; until x>=xk; writeln('└─────┴─────┘'); readln; end.
Результат выполнения контрольного примера: Таблица ┌─────┬─────┐ │ X │ Y │ ├─────┼─────┤ │ 1.00 │ 2.56 │ ├─────┼─────┤ │ 1.50 │ 2.72 │ ├─────┼─────┤ │ 2.00 │ 2.89 │ ├─────┼─────┤ │ 2.50 │ 3.06 │ ├─────┼─────┤ │ 3.00 │ 3.22 │ ├─────┼─────┤ │ 3.50 │ 3.38 │ ├─────┼─────┤ │ 4.00 │ 3.53 │ ├─────┼─────┤ │ 4.50 │ 3.67 │ ├─────┼─────┤ │ 5.00 │ 3.81 │ └─────┴─────┘ 3)For Рисунок 3.3
Текст программы:
program p3a; var x,y,x1,xn,dx:real; k,n:integer; begin write(‘Введите начальное, конечное и шаг=’); readln(x1,xn,dx); n:=Round((xn-x1)/dx)+1; writeln(' Таблица'); writeln('┌────┬─────┐'); writeln('│ X │ Y │'); for k:=1 to n do begin x:=x1+(k-1)*dx; y:=ln(sqr(x)+2*x+10); writeln('├─────┼─────┤'); writeln('│',x:5:2,'│',y:5:2,'│'); end; writeln('└─────┴─────┘'); readln; end.
|