Автор: Пользователь скрыл имя, 15 Декабря 2011 в 16:56, лабораторная работа
Задание: Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значений функции y=f(x) при заданном значении x, которое вводится с клавиатуры.
Решение.
Текст
программы
uses crt;
var Y: array [1..3,1..7] of integer;
i,j,S,Z:integer;
begin
clrscr;
i:=1;
j:=1;
S:=0;
for i:=1 to 3 do
begin
for j:=1 to 7 do
begin
write ('Y[',i,j,']=');
read (Y[i,j]);
end;
writeln;
end;
S:=Y[1,7]+Y[2,6]+Y[3,5];
clrscr;
i:=1;
j:=1;
Z:=0;
for i:=1 to 3 do
begin
for j:=1 to 7 do
begin
Z:=Z+Y[i,j];
end;
end;
writeln ('rezultat:');
writeln('Z=',Z,' S=',S);
readkey;
end.
Результат
Тема:
Подпрограммы.
Задание.
Составить программу на языке Паскаль
для вычисления значения функции y
= f (x) в точках x при заданных
значениях a. Нахождение значения
функции f(x) при заданных значениях
а оформить в виде подпрограммы. Результат
вывести в виде двумерной таблицы.
| 12 |
Решение.
1. Блок-схема решения представлена на рисунке.
a) Блок-схема
алгоритма основной программы
б) Блок-схема
алгоритма подпрограммы P
Текст
программы
uses crt;
type vector= array [1..20] of real;
massiv=
array [1..20,1..20] of real;
var x,a:vector;
i,j,n,m:integer;
y:massiv;
procedure p(n,m:integer; x,a:vector; var y:massiv);
begin
for i:=1 to n do
for j:=1 to m do
y[i,j]:= (sin(a[j]*x[i]*x[i])+exp(x[i])
end;
BEGIN
clrscr;
write ('vvedite kol-vo znacheniy x:');
readln (n);
write ('vvedite kol-vo znacheniy a:');
readln (m);
clrscr;
for i:=1 to n do
begin
write ('vvedite x[',i,']=');
readln (x[i]);
end;
writeln;
for j:=1 to m do
begin
write ('vvedite a[',j,']=');
readln (a[j]);
end;
clrscr;
p(n,m,x,a,y);
writeln ('rezultat:');
writeln;
writeln ('┌───────┬───────┬───────┬───
write ('і x \ a і');
for i:=1 to m do
write (' ',a[i]:3:0,' і');
writeln;
writeln ('├───────┼───────┼───────┼───
for i:=1 to n do
begin
write ('і',x[i]:3:0,' і');
for j:=1 to m do
write (y[i,j]:11:3,'і');
writeln;
end;
writeln ('└───────┴───────┴───────┴───
readkey;
END.
Результат
Тема:
Циклы итерационного
типа
Задание. Составить программу функции, разложенной в ряд:
Напишите программу вычисления суммы ряда в соответствии с Вашим вариантом задания.
Отчитайтесь преподавателю о
выполнении задания.
| 12 | Составить программу
вычисления функции F(x), разложенной
в ряд
|
До выполнения
условия
где - заданная степень точности; n-порядковый номер очередного члена ряда (в скобках).
|
Блок-схема
алгоритма решения
Текст
программы
uses crt;
var Y,S,x,eps:real;
n:integer;
Begin
clrscr;
write ('vvedite eps=');
readln (eps);
write ('vvedite x=');
readln(x);
Y:=1;
n:=1;
S:=1;
while S>eps do
begin
S:=exp(ln(x)*n)/n;
Y:=Y+S;
inc(n);
end;
write ('pri eps=',eps:1:4,' x=',x:1:2,' F(x)=',Y:5:5);
readkey;
end.
Результат