Лабы
.docxЛабораторная работа 1
Вычислить значение заданной функции. Программу разработать с использованием императивной парадигмы программирования.
Prorogram lab_11;
Var a,k,b,x: real;
Begin
Write('a = ');
Readln(a);
Write('k = ');
Readln(k);
x:=sqrt(a)+(a*k*k+4)/(a*sin(k));
Writeln('x =',x:5:2);
End.
a=6,3 k=-8,1 |
x=-65,792 |
Лабораторная работа 2
Составить программы решения следующих задач. В вариантах 1–12 вычислить значение F по предлагаемой формуле. При получении нуля в знаменателе необходимо напечатать фразу "Попытка деления на ноль". В вариантах 13–15 определить номер области n, в которую попадет точка с заданными координатами x и y. Границы отнести к области с большим номером
Program lab_12;
Var x,y,z,a,b,c: Integer;
F: Real;
Begin
Readln(x, y, z);
If(x+z>x-y) Then a := x+z
Else a := x-y;
If(z<y) Then b := z
Else b := y;
F:=a/(x+y+b);
Writeln(' F = ',F);
End.
Лабораторная работа 3
Исходные значения матриц и векторов считывать из файла res.txt. Результаты вычислений записывать в файл результатов res1.txt
Лабораторная работа 4
Вычислить значение заданной функции. Программу, разработать с использованием событийной парадигмы программирования.
a=6,3 k=-8,1 |
x=-65,792 |
uses vcl;
//$VCLDESIGN+
var
Form1: Form;
TextLabel1: TextLabel;
TextLabel2: TextLabel;
TextLabel3: TextLabel;
TextLabel4: TextLabel;
Edit1: Edit;
Edit2: Edit;
Button1: Button;
Button2: Button;
Button3: Button;
//$VCLDESIGN-
procedure Button1OnClick;
var a,k,x: real;
t: integer;
d: string;
begin
val(edit1.text,a,t);
val(edit2.text,k,t);
x:=sqrt(k)+(k*k*a+4)/a*sin(k);
x:=trunc(x*10000)/10000;
Str(x,d);
Textlabel4.Caption:=d;
Textlabel3.Enabled:=True;
Textlabel3.Visible:=True;
Textlabel4.Enabled:=True;
Textlabel4.Visible:=True;
end;
procedure Button2OnClick;
begin
Edit1.text:='';
Edit2.text:='';
Textlabel4.Caption:='';
Textlabel3.Enabled:=False;
Textlabel3.Visible:=False;
Textlabel4.Enabled:=False;
Textlabel4.Visible:=False;
end;
procedure Button3OnClick;
begin
Form1.Close;
end;
procedure InitControls;
begin
Form1:= Form.Create(0,0,380,338);
Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
TextLabel1:= TextLabel.Create(Form1,88,32,92,13);
TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'Введите значение','');
TextLabel2:= TextLabel.Create(Form1,96,72,92,13);
TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Введите значение','');
TextLabel3:= TextLabel.Create(Form1,104,264,33,13);
TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Ответ:','');
TextLabel4:= TextLabel.Create(Form1,184,272,38,13);
TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'Метка4','');
Edit1:= Edit.Create(Form1,216,24,121,21);
Edit1.InitControl(True,True,alNone,crDefault,clWindow,'','');
Edit2:= Edit.Create(Form1,216,64,121,21);
Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
Button1:= Button.Create(Form1,40,184,75,25);
Button1.InitControl(True,True,alNone,crDefault,0,'Вычислить','');
Button2:= Button.Create(Form1,256,192,75,25);
Button2.InitControl(True,True,alNone,crDefault,0,'Удалить','');
Button3:= Button.Create(Form1,152,224,75,25);
Button3.InitControl(True,True,alNone,crDefault,0,'Очистить','');
Button1.OnClick:=Button1OnClick;
Button2.OnClick:=Button2OnClick;
Button3.OnClick:=Button3OnClick;
Form1.Position:= poScreenCenter;
Form1.Show;
end;
begin
InitControls;
end.