информатика

Программирование на языке Delphi

Расчетно-графическая работа №1

по дисциплине

информатика

Вариант № 2

Автор работы: ____________ Боцева Ю.Ю.

Группа: ПТ-101 № зачетной книжки: 11-5.002

Дата регистрации: «__»____20__г. __________ В.Г.Хандыго

Допуск к защите: «__»____20__г. __________ В.Г.Хандыго

Дата защиты: «__»____20__г. Оценка: ___________

Руководитель работы: ___________ __________ В.Г.Хандыго

Брянск 2012

ЗАДАНИЕ№1. Составить блок-схему алгоритма и программу для вычисления значений выражения. Запишите исходные данные и результаты с экрана.

Y=x⁵ *(x*arctg(a+x)- +ln( +1)² );

a=0, 5; при х=9, 5 и х=1, 5.

Блок-схема программы

Алгоритм программы.

Procedure TForm1.Button1Click(Sender: TObjeck);

Const a=0, 5;

Var x, y: real;

Begin

x: =StrToFloat(Edit1.Text);

y: =(exp(5*ln(x)))*(x*arctan(a+x)-(sqrt(abs(x-a)))+ln(sqr(abs(x)+1)));

Label3.Caption: =FloatToStr(y);

End;

End.

Результаты с экрана.

Форма:

Результаты для х=1, 5

Результат для х=9, 5:

ЗАДАНИЕ№ 4. Составить алгоритм и написать программу на алгоритмическом языке для обработки массивов.

Задан массив m={m_i }, i=1, 2, …, n; n-число элементов массива (n≤ 30). Вычислить сумму кубов отрицательных элементов массива.

Блок-схема программы.

Алгоритм программы.

procedure TForm1.Button1Click(Sender: TObject);

Const k=30;

Var m: array[1..k] of integer;

i: integer;

s: real;

begin

StringGrid1.ColCount: =k;

StringGrid1.RowCount: =1;

for i: =1 to k do

m[i]: =StrToInt(StringGrid1.Cells[i-1, 0]);

s: =0;

for i: =1 To k do

if m[i]< 0 then s: =s+exp(3*ln(m[i]));

Label2.Caption: =FloatToStr(s);

end;

end.

ЗАДАНИЕ№2. Составить блок-схему алгоритма и программу для вычисления значений выражения, используя оператор выбора. Запишите данные и результат с экрана.

Z=

Блок-схема.

Алгоритм программы:

procedure TForm1.Button1Click(Sender: TObject);

Var a: integer;

z: real;

begin

a: =StrToInt(Edit1.Text);

case a of

0: z: =pi;

2: z: =sqr(a)-pi;

3: z: =ln(sqr(pi)+a)/(ln(a));

4: z: =exp(8)*cos(a);

else z: =-(exp(2.9*ln(a)));

Label2.Caption: =FloatToStr(z);

end;

end;

end.

Результаты с экрана:

ЗАДАНИЕ№3. Используя операторы цикла(while, repeat) составить программу вычисления таблицы значений функции в указанном диапазоне значений.

X= , где

Диапазон, шаг: z

Блок-схема программы:

Алгоритм программы:

procedure TForm1.Button1Click(Sender: TObject);

Const a=-0.2;

b=2;

h=0.2;

Var x, y, z: real;

i: integer;

s1, s2: String;

begin

StringGrid1.Cells[0, 0]: ='x';

StringGrid1.Cells[0, 1]: ='y';

z: =-0.2;

i: =1;

repeat if x> =0 then y: =z+exp(3*ln(pi))

else y: =cos(sqr(z));

x: =(sin(y)/cos(y))/(abs(1-exp(y*ln(pi))))+sqrt(y);

Str(z: 2: 2, s1);

Str(x: 2: 2, s2);

StringGrid1.Cells[i, 0]: =s1;

StringGrid1.Cells[i, 1]: =s2;

i: =i+1;

z: =z+0.2;

Until z> 2;

end;

end.

Результаты с экрана:

ЗАДАНИЕ№5. Составить алгоритм и написать программу на алгоритмическом языке для обработки матриц.

D=7C+B-A

Блок-схема программы:

Алгоритм программы:

procedure TForm1.Button1Click(Sender: TObject);

Var i, j: integer;

A, B, C, D: array[1..3, 1..4] of real;

begin

for i: =1 To 3 do

a[i, j]: =StrToFloat(StringGrid1.Cells[j-1, i-1]);

b[i, j]: =StrToFloat(StringGrid1.Cells[j-1, i-1]);

c[i, j]: =StrToFloat(StringGrid1.Cells[j-1, i-1]);

d[i, j]: =7*c[i, j]+b[i, j]-a[i, j];

StringGrid4.Cells[j-1, i-1]: =FloatToStr(d[i, j]);

end;

end.

Результаты с экрана: