[andbrey]

Кому не жалко времени хлелп пожалуйста!

Лабораторная работа № 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.

Админ: Пользуемся тегами для оформления кода!

[Konrad]

Иди.........................в раздел работа.

[Pyro]

Кому не жалко времени...

'Эталонный пример' если действительно эталонный, то там надо только поменять под каждую задачу ту строчку где if...then
но вобще он очень не наглядный, и интерестно где это такому учат

[andbrey]

Сообщение от Pyro

'Эталонный пример' если действительно эталонный, то там надо только поменять под каждую задачу ту строчку где if...then
но вобще он очень не наглядный, и интерестно где это такому учат

Я признаться не студент, родственник, а вот студент походу валится хз, там надо было этот эталон код паскаль в делфи переписать и поменять, вот что...
Посоветуйте плиз программу Делфи 2006 в (универе установлена) где-нибудь без смс качнуть реально, Я нашёл 2007 она хуже или нет, есть ещё версии лайт обрезанные они что ли.

[Konrad]

Сообщение от andbrey

Я признаться не студент, родственник, а вот студент походу валится

Дык а что он переживает то? -
"и на рассвете вперед уходит рота солдат..." и делов то... И учить ничего не нужно, и оденут, и обуют, и сказку на начь расскажут.

[andbrey]

Сообщение от Konrad

Дык а что он переживает то? -
"и на рассвете вперед уходит рота солдат..." и делов то... И учить ничего не нужно, и оденут, и обуют, и сказку на начь расскажут.

Ну да, отслужи и учись спокойно, хош очно хош заочно...

[andbrey]

Кривовастенько пока вышло, толи ещё будит

Код:

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.

Я просто частенько зависаю у компа)

[Pyro]

наверно надо http://www.delphisources.ru/pages/fa...nsole_app.html

[andbrey]

Сообщение от Pyro

наверно надо http://www.delphisources.ru/pages/fa...nsole_app.html

Спасибо + за ссылку, и сайт интересный)