Блок-схема


Текст программы.
Program Kolco;

var d,sum,h:real;

begin

writeln('Введите ширину кольца ');

ReadLn(h);

writeln('Введите отношение большого радиуса к меньшему ');

ReadLn(d);

sum:=3.142*h*h*(d+1)/(d-1);

WriteLn('Площадь кольца равна ',sum);

ReadLn;

end.
Результат работы программы:
При вводе h=14 и D=2 получаем, что площадь кольца равна 1,8474960000Е+03 или 1847,496 единиц

317. Вычислить интеграл по формуле прямоугольников, разбив отрезок [a,b] на n частей. Значениям переменных a,b,n ввести с клавиатуры. Формула прямоугольников
Блок схема:


Текст программы.
Program Integral;

function Fx(x:real):real;

begin

Fx:=1/(x*x);

end;

var a,b,sum,h,x:real;

i,n:integer;

begin

writeln('Введите левую границу отрезка ');

ReadLn(a);

writeln('Введите правую границу отрезка ');

ReadLn(b);

writeln('Введите количество разбиений ');

ReadLn(n);

h:=(b-a)/n;

sum:=0;

x:=a;

i:=0;

for i:=1 to n-1 do sum:=sum+Fx(x);

sum:=sum*h;

WriteLn('Интеграл равен ',sum);

ReadLn;

end.
341. Найти действительные корни х₁,х₂ квадратного уравнения для следующих значений коэффициентов :

1). А=2, В=0,С=4; 2). А=1.2, В=4,С=-3,4; 3). А=2.5, В=3.2,С=4.8;

Если дискриминант отрицательный вывести сообщение «Решения нет».

Будем полагать, что коэффициенты этого уравнения , и представляют собой вещественные числа. Простейший случай предполагает, что все коэффициенты отличны от нуля. В зависимости от знака дискриминанта квадратного уравнения



возможны три случая:

Если , то имеются два различных вещественных корня, которые можно вычислить по следующим формулам:

---

, .

Если , то имеется единственный корень (точнее, двукратный корень): .

Если , то вещественных корней нет.

Блок схема алгоритма приведена на рисунке:




Текст программы.

program uravn1;{решение квадратного уравнения}

uses CRT;

var

A,B,C,D: real; X1,X2: real;

begin

ClrScr;

writeln('Введите коэффициенты А,B и С');

read(A,B,C);

D:=sqr(B)-4*A*C;

If (A=0) and (B=0) and (C=0) then

writeln('Уравнение имеет бесконечное множество решений')

else

If (A=0) and (B=0) and (C<>0) then

writeln('Уравнение задано некорректно')

else

If (A=0) and (B<>0) and (C<>0) then

writeln('Уравнение имеет один корень Х=',C/B)

else

If D<0 then

writeln('Уравнение имеет комплексные корни,решения нет ')

else

If D=0 then

writeln('Уравнение имеет два одинаковых корня Х1=X2=',-B/(2*A))

else

begin

X1:=(-B+sqrt(D))/(2*A);

X2:=(-B-sqrt(D))/(2*A);

writeln('Корни уравнения:');

writeln('x1=',x1:2:4);

writeln('x2=',x2:2:4);

end;

readln;

writeln('Нажмите ENTER');

readln

end.

Список литературы

1. 
   Илюшечкин В., Костин А. Системное программное обеспечение.-М.: Высшая школа, 2001.127с.
   
2. 
   Руденко В.Д. Курс информатики.-К.: Феникс, 2008. 368с.
   
3. 
   Фигурнов В. ІВМ РС для пользователя.-М.: ИНФРА-М, 2006. 432с.
   
4. 
   Герасименко В.Г., Нестеровский И.П., Пентюхов В.В. и др. Вычислительные сети и средства их защиты: Учебное пособие/ Герасименко В.Г., Нестеровский И.П., Пентюхов В.В. и др. - Воронеж: ВГТУ, 1998. - 124с.
   
5. 
   Журнал для пользователей персональных компьютеров Мир ПК.
   
6. 
   Малышев Р.А. Локальные вычислительные сети: Учебное пособие/ РГАТА. - Рыбинск, 2005. 83 с.
   
7. 
   Симонович С.В.Информатика. Базовый курс/Симонович С.В. и др. - СПб.: издательство "Питер", 2000. - 640 с.: ил.
   

0>

---

Смотрите также файлы

• Yf(x) y 258x. 32x. 2 3x.docx

• Практических заданий по дисциплине возростная психология и психология развития.docx

• Лабораторная работа Расчет внедрения системы информационной безопасности.docx

• Проектирование процесса социализации.docx

• 1. средства индивидуальной защиты органов дыхания.docx