|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
лаба, можете подсказать пошагово выполнение
Кому не жалко времени хлелп пожалуйста!
Лабораторная работа № 1 Проверка попадания точки в заданную область ЗАДАНИЕ. Построить графически область, все точки которой расположены ВСТАВКА А, при этом все они лежат ВСТАВКА Б и ВСТАВКА В. Составить программу, которая считывает координаты заданного (преподавателем) числа точек, подчеркивая строкой звездочек те из них, которые ВСТАВКА Г в заданную область. Индивидуальное задание для данной работы можно получить в конце методического указания. ВСТАВКА А: 0) Выше оси абсцисс; 1) Ниже оси абсцисс; 2) Левее оси ординат; 3) Правее оси ординат; 4) Во второй четверти; 5) В третьей четверти; 6) В четвертой четверти. ВСТАВКА Б: 0. Выше параболы Y= 2X^2 -1; 1.Ниже параболы Y= 2X^2-1; 2. Левее параболы Y = (X+1) ^2-1; 3. Ниже прямой Y = 2X –1. 4. Выше прямой Y = –X ВСТАВКА В: 0. Внутри круга радиуса 4 с центром в точке X=0, Y=0; 1. Вне круга единичного радиуса с центром в точке x=0, y=0; 2. Внутри круга радиуса 5 с центром в точке x = 0, y = 1. ВСТАВКА Г: 0. Не попадают; 1. Попадают. Порядок выполнения работы 1. В декартовой системе координат строится область в соответствии с индивидуальным заданием. 2. Составляется схема алгоритма. 3. Проводится кодирование и отладка. Отчет должен содержать 1. Блок-схему программы. 2. График заданной области. 3. Листинг программы на языке Паскаль. Эталонный пример Код:
{Вариант 5,2,0,0} Program Lab1; Uses crt; Var I:Integer; N:Integer; X,Y:Real; Begin ClrScr; Write('Введите количество точек'); Readln(N); For i:= 1 to N Do Begin Write('Введите X '); Readln(X); Write('Введите Y '); Readln(Y); if( (x>-1) or (y>0) or ( y>(x*x+2*x) ) or ( (sqr(x)+sqr(y))>16 ) ) Then Begin writeln('**************************************************'); End; End; Readkey; End. Последний раз редактировалось Admin, 14.12.2011 в 10:26. |
#2
|
||||
|
||||
Иди.........................в раздел работа.
|
#3
|
|||
|
|||
Цитата:
но вобще он очень не наглядный, и интерестно где это такому учат |
#4
|
|||
|
|||
Цитата:
Посоветуйте плиз программу Делфи 2006 в (универе установлена) где-нибудь без смс качнуть реально, Я нашёл 2007 она хуже или нет, есть ещё версии лайт обрезанные они что ли. |
#5
|
||||
|
||||
Цитата:
"и на рассвете вперед уходит рота солдат..." и делов то... И учить ничего не нужно, и оденут, и обуют, и сказку на начь расскажут. |
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
Кривовастенько пока вышло, толи ещё будит
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var M,Summa:Real; i,k,j:Integer; implementation {$R *.dfm} Begin Write('Введите M'); Readln(M); {Прямой порядок} k:=0; Summa:=0; repeat k:=k+1; Summa:=Summa+k; Writeln('№ ',k,' Elem=',k,' Summa=', Summa:0:8); Until( Summa > M ); {Прямой порядок} Writeln('Нажмите Enter'); Summa:=0; j:=0; {Сумма обратный порядок} For i:=K downto 1 Do Begin j:=j+1; Summa:=Summa+i; Writeln('№ ',i,' Elem=',i,' Summa=', Summa:0:8); End; {Сумма обратный порядок} End. end. |
#8
|
|||
|
|||
|
#9
|
|||
|
|||
Цитата:
|