погибаю....

[suselbig]

Помогите пожалуйста а то отчислят...



http://rghost.ru/37395732


хотя бы парочку...

[BDA]

Постарайтесь к зачету усвоить основы.
1-я

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,v1,v2:real;

const
pi=3.14;

begin
  write('Vvedite a: ');
  readln(a);
  v1:=a*a*a;
  v2:=4/3*pi*a*a*a;
  writeln('V kuba= ',v1:5:2);
  writeln('V shara= ',v2:5:2);
  if v1>v2 then
  write('V kuba bolshe')
  else
  write('V shara bolshe');
  readln;
end.

Вообще говоря, очевидно, что объем шара будет больше, т.к. Vшара=K*Vкуба, где K больше единицы.
2-я

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,y:real;
t:boolean;

begin
  t:=false;
  write('Vvedite x: ');
  readln(x);
  if x<3 then
    if x=-4 then
      t:=true
    else
    y:=1/(x+4)
  else
    if x=25 then
      t:=true
    else
      y:=x*x*x/(sqrt(x)-5);
  if t then
    write('Y ne opredeleno')
  else
    write('Y= ',y:5:2);
  readln;
end.

Достаточно странная задача. Опасные точки нужно обходить самому (может быть, в этом и есть смысл задания).