МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Чорноморський державний університет Ім. П. Могили
Факультет комп’ютерних наук
Кафедра інтелектуальних інформаційних систем
ЗВІТ
з самостійної роботи, дисципліна «Основи програмування та АМ»
І триместр
Варіант № 5
Спеціальність “Інтелектуальні системи прийняття рішень”
6.080404-ПР.ПЗ.00-101.102456
Cтудент Гультяєв С.О.
чч.мм.2008
___________ ____________
(підпис) (дата)
Викладач Цибенко Б.О.
___________ ___________
(підпис) (дата)
Миколаїв – 2012
Арифметика дійсних чисел. Обчислення по формулах.
11. Дані х, у, z. Обчислити a, b, якщо
д)
Текст програми
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
A :Real; //Значення формули A
B :Real; //Значення формули B
X :Real; //Змінна X
Y :Real; //Змінна Y
Z :Real; // Змінна Z
St :string;
St1 :string;
Ch :Char;
I :integer;
N :integer;
function TextToScreen(St:string):string;
//Кирилиця в консольному режимі Delphi 7
var
I :integer;
N :integer;
begin
for I:=1 to Length(St) do
begin
N:=Ord(St[I]);
if N < 128 then continue;
case N of
191: st[I]:=Chr(244);
170: st[I]:=Chr(242);
175: st[I]:=Chr(245);
178: st[I]:=Chr(73);
186: st[I]:=Chr(243);
179: st[I]:=Chr(105);
32: st[I]:=Chr(32)
else
if St[I] <= 'i' then St[I]:=Chr(N-64)
else if St[I] <= 'y' then St[I]:=Chr(N-16);
end //case
end;
TextToScreen:=St;
end; // procedure TextToScreen
begin
SetconsoleCP(1251); //Використання
SetconsoleOutputCP(1251); //кирилиці
Writeln(' 2cos(X-Pi/6) Z^2'); //Виведення
Writeln('A=------------ B=---------'); //вигляду рівняння
Writeln(' 1/2+sin^2(Y) 3+(Z^2)/5'); //на екран
Writeln; //Відступ одного рядка перед введенням значень з клавіатури
Write('Введіть X: '); //Виведення тексту на екран
Readln(X); //Читання значення "X" введенного з клавіатури
Write('Введіть Y: '); //Виведення тексту на екран
Readln(Y); //Читання значення "Y" введенного з клавіатури
Write('Введіть Z: '); //Виведення тексту на екран
Readln(Z); //Читання значення "Z" введенного з клавіатури
A:=(2*cos(X-Pi/6))/((1/2)+Sqr(Sin(Y))); //Підставлення значень X та Y до рівняння і рахування результату
B:=1+Sqr(Z)/(3+Sqr(Z)/5); //Підставлення значення Z до рівняння і рахування результату
Writeln; //Відступ одного рядка перед виведенням відповіді на екран
Writeln(' A= ', A:6:3, ' ','B= ', B:6:3); //Виведення відповіді на екран
Readln;
end.
Скріншот програми:
Алгоритм програми
Ідентифікатор |
Опис |
X |
Значення змінної X |
Y |
Значення змінної Y |
Z |
Значення змінної Z |
A |
Значення формули A |
B |
Значення формули B |
80. Дано дійсне число n:. Обчислити:
