[LiLu77]

Всем привет.
Народ помогите по Delphi.

Решено. Всем спасибо

[Aristarh Dark]

1 - неправильно
4 - правильно
Про раздел "Работа" писать уже надоело
2,3 могу сделать за 300 рублей.

[Viajero]

Сообщение от Aristarh Dark

300 рублей.

ну ну... Задачи для 1 класса
2. If (X>=-1) and (Y<=1) and (Y>=Х) then ... тру ля ля ... вошло (если только график чертить не надо, но в условии об этом не сказано)
3. В условии уже и инструкция, внимательно только читать.

[LiLu77]

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

ну ну... Задачи для 1 класса
2. If (X>=-1) and (Y<=1) and (Y>=Х) then ... тру ля ля ... вошло (если только график чертить не надо, но в условии об этом не сказано)
3. В условии уже и инструкция, внимательно только читать.

Вторая готова в таком случае:

Код:

program Grafic;

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  x, y : Double;  

begin
  Writeln('Vvedite x:');
  Readln(x);
  Writeln('Vvedite y:');
  Readln(y);
  if(x>=-1) and (y<=1) and (y>=x) then
  Writeln('Vowlo')
  else Writeln('Ne vowlo');
  Readln;
end.

А вот как формулу из третьего задания переписать на машинный язык?

[Viajero]

Ну вы ж сделали 1 задание, или не понимаете, что такое ряд.
http://ru.wikipedia.org/wiki/%D0%A7%...80%D1%8F%D0%B4
внимательно почитайте 3-й пункт методики 3-го задания.

В 4 задании Randomize явно не на месте.

[Viajero]

А зачем удалять условие?
Вот это эгоистично и непорядочно, я считаю.

Всем привет.
Народ помогите по Delphi.

Вообщем задания такие:
1. http://clck.ru/d/SW05VrRZ18L_T
Решила так:

Код:
program Zadanie1;

{$APPTYPE CONSOLE}

uses
SysUtils, Math;

const
a=12.5;
b=1.3;
c=14.1;
d=2.7;

var
x,y,t1,t2, ax : Double;
begin
Writeln('Vvedite x:');
Readln(x);
Writeln('Vvedite y:');
Readln(y);
ax:=a*x;
t1:=(ax/y)+(b/(y*y)*ln(y*x+c));
//t1:=(b*ln(ax+b)/a+d*ln(y*x+d)/y)/c;
ax:=Sqrt((c-b)*(c+b))*tan(ax);
t2:=Ln((ax+b)/(ax-b))/2/a/b;
Writeln('t1= = ', t1:8:4);
Writeln('t2= = ', t2:8:4);
Writeln('Ha}|{MITE LYUBUYU KNOPKU');
Readln;
end.
2. http://clck.ru/d/6kLchtnu18M6n
Вот с этим проблемы =(

3. http://clck.ru/d/WkhvtcyR18MQP
И с этим проблемы =(

4. http://clck.ru/d/hGpQVQi118MfL
Сделала так:

Код:
program Massiv;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
i, min:Integer;
Ar:array[1..50] of Integer;
begin
Writeln('Pervyj massiv:');
for i:=1 to 50 do
begin
Randomize;
Ar[i]:=Random(201)-100;
write(Ar[i]:5);
end;
Writeln(#13#10'Izmenennyj massiv:');
min:=200;
for i:=1 to Length(Ar) do
if(Ar[i]>0) and (Ar[i]<min) then
min:=Ar[i];
for i:=1 to 50 do
if(Ar[i]>=0)then write(Ar[i]:5)
else
begin
Ar[i]:=min;
write(Ar[i]:5);
end;
Readln;
end.
Кто сможет помогите плиз решить 2 и 3 задание, и правильность 1 и 4 задания
Хотя бы какие формулы...
С математикой туго