[Djivan]

Друзья, прошу у вас помощи. Нужна помощь в решении 2 вариантов курсового проекта. Во вложении 2 файла с вариантами. Буду рад любой помощи, вплоть до решения. Могу даже отплатить за это дело)) Также есть решения некоторых других вариантов, вот здесь http://mgou-noginsk.narod.ru/HTMLs/Programming2.html. Честно сказать для меня пока Turbo Delphi глухой лес, а сдавать скоро(

[Djivan]

Срочно спасайте к понедельнику нужны коды, готов заплатить(пишите в личку) Очень прошу помощи

[chainik]

здесь задачи 2 и 3 задания 09
остальное решай по образцу.
ничего сложного здесь нет
Просто немного напрячь извилины

[Djivan]

Я может что-то неправильно делаю, но у меня не работают эти программы)
3 задача просит ввести названия, и все)

[chainik]

в задаче 3 надо предварительно создать текстовый файл.
(См задание)
Сделай это блокнотом (только не пользуйся вордом)

Проверки исключительных ситуаций я не делал!

[chainik]

Согласен. небольшой ляпсус.
Здесь исправленная версия задачи 3

Код:

program Project3;

{$APPTYPE CONSOLE}

var
Sinp,Sout:string;
Finp,Fout:textfile;
z:extended;

begin
write('InputFileName: ');readln(Sinp);
write('OutFileName: ');readln(Sout);

assign(Finp,Sinp);reset(Finp);
assign(Fout,Sout);rewrite(Fout);

while not eof(Finp) do
    begin
    read(Finp,z);
    if z >=0 then
        write(Fout,z,' ');
    end;
closefile(Finp);
closefile(Fout);
readln;
end.

[chainik]

здесь файл q.txt- исходный
w.txt- после замены гл и побочной диагонали

[lmikle]

вот реализация 11 варианта.
все задачи, где не оговорен ввод данных, заполняются случайным образом (матрицы).

Если решение устраивает, то пиши, о сырцах попробуем договориться.

[chainik]

Пояснение
Всю фигуру разбиваем на области
1- ограничена y=-x-3, x < -1.5 и ниж часть окружн
2- x > -1.5 and x <0, y=x и ниж часть окружн
3- x >0 and x <1, y <x-3 и ниж часть окружн
4- x > 1 и огранич окружностью
Затем тупо перебираем все точки и проверяем условие

Код:

program Project1;

{$APPTYPE CONSOLE}

const
DeltaY=0.4;
DeltaX=0.5;
R=3;

var
x,y:extended;



begin
y:=-3.6;
    repeat
    x:=-4;
        repeat
        if (R >= abs(x)) and
{1}          (((x<= -1.5) and (y <= -x-3) and (y >= -sqrt(R*R-x*x))) or
{2}          ((x> -1.5) and (x <=0) and (y<=x) and (y >= -sqrt(R*R-x*x))) or
{3}             ((x> 0) and (x <=1) and (y <=x-3) and (y >= sqrt(R*R-x*x))) or
{4}             ((x >1) and (x <=3) and (y <= sqrt(R*R-x*x)) and (y >= -sqrt(R*R-x*x)))) then
                writeln(x,'    ',y);
        x:=x+DeltaX
        until (x >=3.5);
    y:=y+deltaY;
    until (y >=3);

readln;
end.

[lmikle]

А не слишком сложно (в смысле записи, понимать такое условие тяжело)?

Код:

function IsValid(x,y : Extended) : Boolean;
begin
  Result := (sqr(x) + sqr(y) < 9); // внутири окружности
  If Result Then
    Begin
      If x < 3 
        Then Result := (y < -1 * x -3) // Первая область
        Else
          If x < 1.5
             Then Result := (y < x) // Вторя область
             Else
                If x < 1 
                  Then Result := (y < x -3); // Третья область
  // Четвертая область - просто в окружности, условие выше.
end;

Согласен, так длиннее, зато понятнее.
Кстати, точки границ областей можно и из уравнений высчитать. Просто в этих заданиях они простые, так что можно и на глаз посчитать.

[chainik]

Согласен.
так пожалй лучше.

Я вот уже и сам не могу понять что написал....
А вообще-то надоело. Скучно школьные задачки решать.
Поразмялся- и хватит.

[lmikle]

Ну да, 11ый вариант я сделал меньше чем за час (все пять).