Вернёмся к Паскалю

[qip2005]

Здравствуйте у меня есть пара задач, с которыми не получается ничего.
Помогите пожалуйста.

[_Dmitry]

Выкладывайте то "ничего", которое не получается, а мы поправим...

[Roof]

держика )))
задача 1

var
 x,y, z: real;
  begin
    writeln('Vvedite x');
    Readln(x);
    writeln('Vvedite y');
    Readln(y);

    if x<0 then
      begin
        if x>y then
          z:= x
        else
          z:=y;
      end;

    if x>=0 then
      begin
        if x<y then
          z:= x
        else
          z:=y;
      end;
  writeln('Chislo Z=',z: 4: 3);
  Readln;

задача2

var
 x,y, z, max, min: real; 
 prov: array[1..2] of real;
 i: integer;
  begin
    writeln('Vvedite x');
    Readln(x);
    writeln('Vvedite y');
    Readln(y);
    writeln('Vvedite z');
    Readln(z);

    for i:=1 to 2 do begin
     if i=1 then
       prov[i]:= x+3;
     if i=2 then
       prov[i]:= y+z+3;

     if prov[i]> prov[i-1] then
       max:= prov[i]
     else
       max:= prov[i-1];
    end;

     for i:=1 to 2 do begin
     if i=1 then
       prov[i]:= sqr(x)+sqr(y) - 4;
     if i=2 then
       prov[i]:=  sqr(y)+sqr(z) - 4;

     if prov[i]< prov[i-1] then
       min:= prov[i]
     else
       min:= prov[i-1];
    end;

    writeln('Maksimalnoe znachenie= ',max:4:3);
    writeln('Minimalnoe znachenie= ',min:4:3);

  Readln;

вроде так, если чего не понял пиши

[qip2005]

Что такое "prov"?

[muravei2007]

prov - это массив из двух чисел типа real

[qip2005]

Огромное спасибо

Кстати если не лень гляньте плиз ещё правильно решил или нет?
Файл с заданием прикрепил
Вот попытки моих решений.
Вроди так.

Первая:

label t;
var
i,s,n,m:integer;
begin
t:
Readln(m);
if m > 0 then begin
s:=0;
for n:=1 to m do begin
s:=s + n*(n+1)*2*n;
end;
write(s);
Readln;
end else goto t:;
end.

Вторая вот чё получилось:

label t;
var
i,s,n,m:integer;
begin
t:
Readln(m);
if m > 0 then begin
s:=0;
for n:=1 to m do begin
s:=s + n*(n+1)*2*n;
end;
write(s);
Readln;
end else goto t:;
end.

[Roof]

2 qip2005
prov - это просто массив. В этот массив я загоняю значения для сравнения, у тебя же в задании два числа нужно сравнить? вот в массиве я их и сравниваю - кто min, а кто max. а задание я гляну... но только завтра...))))

[puporev]

Во первых не понял чем 2я отличается от1й. Не спеши!
Первая неправильно в двух моментах.
1.Первый член суммы не вписывается в общую формулу. Вот если бы он был 1*2*2, тогда правильно считаешь, а так нет. Неужели трудно проверить на калькуляторе сумму 2х-3х чисел? при n=1, ответ 2, а не 4. И т.д.
2 . Зачем тебе такая сложная проверка через метку? Вообще отвыкай от них, пока не привык.
Вот правильное решение.

var n,i,s:integer;
begin
repeat
write('n=');
readln(n);
until n>0; {проверяем правильность ввода}
s:=2;
for i:=2 to n do
s:=s+i*(i+1)*2*i;
write('s=',s);
readln
end.

Вот заодно вторая, а то точно запутаешься.

var n,i:integer;
    e,a,ai:real;
begin
repeat
write('n=');
readln(n);
until n>=2;  {проверяем правильность ввода}
repeat
write('e=');
readln(e);
until e>0; {проверяем правильность ввода}
i:=1;a:=i/(sqrt(i*i+1)-sqrt(i*i-1));         {начальные значения}
while abs(a-ai)<=e do
   begin
     a:=ai;    {a присваиваем значение вычисленного ai}
     ai:=i/(sqrt(i*i+1)-sqrt(i*i-1));;  {вычисляем новое значение ai}
     inc(i); {увеличиваем счетчик на 1}
   end;
write('a=',a:0:5,'  ai=',ai:0:5,'  |a-ai|=',abs(a-ai):0:5);
readln
end.

[qip2005]

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

Во первых не понял чем 2я отличается от1й. Не спеши!
Первая неправильно в двух моментах.
1.Первый член суммы не вписывается в общую формулу. Вот если бы он был 1*2*2, тогда правильно считаешь, а так нет. Неужели трудно проверить на калькуляторе сумму 2х-3х чисел? при n=1, ответ 2, а не 4. И т.д.
2 . Зачем тебе такая сложная проверка через метку? Вообще отвыкай от них, пока не привык.
Вот правильное решение.

Сори я прогнал, не ту 2-ю написал.
Спасибо ограмное