Расчетно-графическая работа по "Информатике программ"
Автор: Oksana2813 • Апрель 19, 2018 • Практическая работа • 961 Слов (4 Страниц) • 750 Просмотры
Задание 1.
Составить блок-схему алгоритма и программу для вычисления значений выражения. Запишите исходные данные и результаты с экрана.
, где [pic 1][pic 2]
Блок-схема[pic 3]
[pic 4]
[pic 5]
[pic 6]
[pic 7]
[pic 8][pic 9][pic 10][pic 11][pic 12]
[pic 13][pic 14]
[pic 15][pic 16]
[pic 17][pic 18]
[pic 19]
[pic 20]
[pic 21]
[pic 22]
На форме разместим следующие объекты со свойствами:
Объект | Назначение | Свойство | Значение |
Edit 1 | Ввод х | Text | |
Label 1 | Подпись Edit 1 | Caption | Введите значение z |
Label 2 | Вывод результата | Caption | |
Label 3 | Подпись результата | Caption | Ответ: x= |
Button 1 | Запуск программы | Caption | Выполнить расчёт |
[pic 23]
Программа
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z:real;
begin
z:=StrToFloat(Edit1.Text);
if z<=0 then y:=z+pi else
y:= exp(2*sin(3.78)*Ln(z)) ;
x:=cos(y)+exp(1)/abs(1-exp(y*ln(2)))+sqrt(y);
Label3.Caption:=FloatToStr(x)
end;
Результат
[pic 24]
Задание 2.
Составить программу для вычисления значений выражения, используя оператор выбора. Запишите исходные данные и результаты с экрана.
[pic 25]
Выполнение[pic 26]
[pic 27][pic 28]
[pic 29]
[pic 30][pic 31][pic 32]
[pic 33][pic 34][pic 35][pic 36][pic 37][pic 38]
[pic 39][pic 40][pic 41][pic 42][pic 43][pic 44][pic 45][pic 46][pic 47]
[pic 48][pic 49][pic 50][pic 51][pic 52]
[pic 53][pic 54][pic 55][pic 56]
[pic 57][pic 58][pic 59]
[pic 60][pic 61][pic 62][pic 63]
[pic 64]
[pic 65][pic 66][pic 67][pic 68][pic 69][pic 70][pic 71][pic 72]
[pic 73]
[pic 74]
На форме разместим следующие объекты со свойствами:
Объект | Назначение | Свойство | Значение |
Edit 1 | Ввод а | Text | |
Label 1 | Подпись Edit 1 | Caption | а |
Label 2 | Подпись результата | Caption | Ответ: |
Label 3 | Вывод результата | Caption | |
Button 1 | Запуск программы | Caption | Пуск |
[pic 75]
Программа
procedure TForm2.Button1Click(Sender: TObject);
var a:integer;
z:real;
begin
a:=StrToInt(Edit1.Text);
case a of
0:z:=pi;
3:z:=(exp(3*Ln(a)))-pi;
4:z:=Ln( pi+a)/Ln(a);
5:z:=exp(2*cos(a)*Ln(7))
else
z:=-5.97*a
end;
Label3.Caption:=FloatToStr(z)
end;
Результат
[pic 76]
Задание 3.
Составить блок-схему алгоритма и программу. Вычислить F= , где x€[1;2], ∆x=0,1 , используя цикл с постусловием; Результаты оформить в виде таблицы.[pic 77]
Блок-схема[pic 78]
[pic 79]
[pic 80]
[pic 81]
[pic 82]
[pic 83]
[pic 84]
[pic 85][pic 86][pic 87]
[pic 88]
[pic 89]
[pic 90]
[pic 91]
[pic 92]
[pic 93]
[pic 94]
[pic 95][pic 96]
[pic 97]
[pic 98]
...