Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

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






информатика

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

 

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

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

информатика

 

Вариант №2

 

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

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

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

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

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

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

 

Брянск 2012


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

Y=x5 *(x*arctg(a+x)- +ln( +1)2 );

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={mi }, 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.

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

<== предыдущая лекция | следующая лекция ==>
Погрешности подсчета запасов и методы их оценки. | Охрана труда и пожарная безопасность

mylektsii.ru - Мои Лекции - 2015-2018 год. (0.015 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал