Реферат Курсовая Конспект
Все языки программирования делятся на языки низкого, высокого и сверхвысокого уровня - раздел Программирование, Лист Для Замечаний Оглавление ...
|
ЛИСТ ДЛЯ ЗАМЕЧАНИЙ
ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ | |
ЗАДАНИЕ1 | |
ЗАДАНИЕ 2 |
ВВЕДЕНИЕ
Все языки программирования делятся на языки низкого, высокого и сверхвысокого уровня. Более многочисленную группу представляю языки программирования высокого уровня, которые допускают описание алгоритма решения задачи в наглядном, легко воспринимаемом вид. Именно к этой группе относится Паскаль. Язык программирования Паскаль назван в честь выдающегося французского математика и философа 17 века Блеза Паскаля. Этот язык разработан швейцарским профессором Никлаусом Виртом 1968-1971 гг. Первоначально он был создан как учебный, но из-за множества достоинств стал использоваться для разработки программных средств в профессиональном программировании.
ЗАДАНИЕ 1
В современных компьютерах изображения на экране строятся в виде растров, и всседа прямоугольных. На растровом устройстве любая фигура состоит из множества точек пикселей. Естественно, положение каждой точки изображения задано координатами Х, У. Координаты-целые числа, они задают номера колонки и строки рстра и не зависят от физического номера экрана. Оси координат направлены следующим образом: горизонтальная ось Х напрвлена слева направо; вертикальная ось У направлена сверху вниз;
Верхний левый угол имеет координаты (0,0).
С помощю модуля graphABC и процедуры line (x1,y1,x2,y2:integer) изображаем заштрихованную плоскость. Для изображения точки T используем процедуру Circle(x,y:integer;r), а для подписи OutTextXY (x,y:integer;text). Используем цикл if для определения принадлежности точки заштрихованной плоскости. Там где точка попадает в область треугольника для начала определяем длины его сторон с уже известными вершинами и после чего вычисляется площадь данного треугольника с помощью формулы Герона. После попадания точки в данную область она разбивается на три треугольника. Аналогичным образом вычисляется площадь каждого из них, и если точка принадлежит области треугольника, то сумма площадей трех треугольников должна быть равна площади треугольника без точки. Код программы для задания 1 приведен ниже:
programzadacha1;
usescrt, graphABC;
varx,y:integer;
s,s1,a,a1,a2,b,b1,b2,c,c1,p,p1, p2,s2,s3, c2,p3, s0:real;
constx1=240; y1=180; x2=320; y2=240; x3=400; y3=180;
Begin
writeln ('Введите координаты х,у');
readln (x);
readln(y);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=(a+b+c)/2;
s:=p*sqrt((p-a)*(p-b)*(p-c));
a1:=sqrt(sqr(x1-x)+sqr(y1-y));
a2:=sqrt(sqr(x2-x)+sqr(y2-y));
p1:=(a+a1+a2)/2;
s1:=p1*sqrt((p1-a)*(p1-a1)*(p1-a2));
b1:=sqrt(sqr(x3-x)+sqr(y3-y));
b2:=sqrt(sqr(x2-x)+sqr(y2-y));
p2:=(b+b1+b2)/2;
s2:=p2*sqrt((p2-b)*(p2-b1)*(p2-b2));
c1:=sqrt(sqr(x1-x)+sqr(y1-y));
c2:=sqrt(sqr(x3-x)+ sqr (y3-y));
p3:=(c+c1+c2)/2;
s3:=p3*sqrt((p3-c)*(p3-c1)*(p3-c2));
s0:=s1+s2+s3;
Begin
ifk=0 thenfun:=1
elsefun:=fun(k-1)*k;
end;
Begin
writeln ('Введите х'); readln(x);
e:=0.01; s:=0;
Repeat
ifk mod2=0 thenk1:=1 elsek1:=-1;
u:=k1*exp((2*k+1)*ln(x))/(fun(k)*fun(k+1)*exp((2*k+1)*ln(2)));
s:=s+u;
k:=k+1;
untilabs(u)<e;
writeln(' s=',s:6:4);
readln;
end.
Графическое изображение программы приведено на рисунке 2.
Рисунок 2 – Графическое представление программы |
– Конец работы –
Используемые теги: все, Языки, программирования, делятся, Языки, низкого, высокого, сверхвысокого, уровня0.119
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Все языки программирования делятся на языки низкого, высокого и сверхвысокого уровня
Если этот материал оказался полезным для Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов