Студентам с лабораторными сюда (архивная - 2015)

Soherox Спасибо.
А как все таки здесь сделать, чтобы программа вышла из цикла после i=999 ??

PHP:

 Begin 
   i:=100 
     {тут манипуляции с числами, дальше сам цикл} 
     If (a=11) and (i mod 17 = 0) then s:=s+i else i:=i+1; 
     writeln ('s',s); 
     readln; 
 end; 


 

Я как понял тут ты используешь цикл While? Тогда так:

PHP:

begin
   i:=100;
   while i<>999 do
     begin
        {тут манипуляции с числами, дальше сам цикл} 
        If (a = 11) and (i mod 17 = 0) then s:=s+i;
        i:=i+1;
     end;
   writeln(s);
   readln;
 end.

 

почему когда в алгоритми алфа-бета ; алфа==бета то происходит отсичение со сторони бета я никак непоиму почему чем становится посизия бета хуже расталкуите плиз!!!

 

Ничего не понял.... Оо нормально напиши!

 

int AlphaBeta (pos, depth, alpha, beta)
{
&nbspif (depth == 0) return Evaluate(pos);
&nbspbest = -INFINITY;
&nbspsucc = Successors(pos);
&nbspwhile (not Empty(succ) && best < beta)
{
&nbsppos = RemoveOne(succ);
&nbspif (best > alpha) alpha = best;
&nbspvalue = -AlphaBeta(pos, depth-1, -beta, -alpha);
&nbspif (value > best) best = value;
}
&nbspreturn best;
}

&nbspwhile (not Empty(succ) && best < beta)
тут если алфа болше то проишодит отсичение вот и вапрос чем бета становится хуже чем алфа если алфа равна или болше бета ну болше ясно а вот ровна непонятно

 

помогите решить 2 задачи по турбо поскалю

1 ЗАДАЧА)
Написатьь программу котороя вычисляет сумму певых n целых положительных чётных чисел.
Количество суммируемых чисел должно вводится во время работы программы.
2 ЗАДАЧА)
Написать программу вычесления площади кольца. программа должна проверять правельность исходных данных.
Рекомендуемый вид программы :
вычесление площади кольца. Введите исходные данные: Радиус кольца (см)->3.5
Радиус отверстия(см)->7
Ошибка! РАдиус отверстия не может быть больше раддиуса кольца.

 

Вот первая, но не знаю будет ли она работать, т.к. нет возможности проверить.

Code:

Program suma;
var
n, c, i, suma:integer;
begin
Writeln("Vvedi kolichestvo");
Readln(n)
Writeln("Vvedi n chisel");
Readln(c);
for i:=1 to n do
begin suma:= suma+c;
end;
writeln(suma);
end.

 

Вот первая, думаю так легче))))

PHP:

var
  n: integer;
begin
  readln(n);
  writeln((1 + n)*n);
  readln;
end.

 

Вот так вторая:

Code:

Program kolco;
const p=3.14;
var radius_kolca, radius_otverstia, S_kolca:integer;
begin
Writeln("Vvedite radius kolca");
Readln(radius_kolca);
Writeln("Vvedite radius otverstia");
Readln(radius_otverstia);
if radius_otverstia>radius_kolca then
writeln("radius_otverstia ne mozhet bit bolshe radius_kolca")
else S_kolca:=p*(sqr(radius_kolca)-sqr(radius_otverstia));
writeln(S_kolca);
end.

Знающие проверьте правильно ли написал .

 

вторая))) кто обосрет мой код получит плюс)))

PHP:

 var 
so,sk,s,rk,ro: float; 
begin 

while rk<=ro do
begin
writeln('vvedide radius colca');
readln(rk);
writeln('vvedide radius otverstia');
readln(ro);
if rk<=ro then writeln('ne vernij vvod');
end;
sk:=pi*sqr(rk);
so:=pi*sqr(ro);
s:=sk-so; 
  writeln('Ploshad=',s); 
  readln; 
end. 

 

Вот мой вариант 2 задачи)

PHP:

Program kryg;
var
n,k,s,s1,s2:integer;
begin
writeln('Vvedite radiys koltsa');
readln(n);
writeln('vvedite radiys otverstvuja');
readln(k);
if k>n tnen writeln ('Oshibka! RAdius otverstiya ne mozhet byt bo'she radiusa kolca') else
s1:=3.14*sqr(n);
s2:=3.14*sqr(k);
s:=s1-s2;
writeln ('plowad kolca- ',s)
end.

 

EndLeSSDre@M у меня как бы тоже самое. Или я ошибаюсь?

 

wagen, уже имеешь 3 варианта и все похожи))

 

ну я через циклы решил попробовать сделать) чтоб в случае ошибки, был возможен новый ввод, а не закрытие программы

 

Хотел спросить, а в паскале можно вот так делать

Code:

sk:=pi*rk^2;
so:=pi*ro^2; 

Ну типа вот так: ^ в степень поднимать?

 

ммм... не помню))) ну щас через sqr() сделаю))

переделал))) ++тебе за нахождение косяка))

Swat2k и вообще на сколько я помню, мне Soherox говорил, что константа Pi по умолчанию там есть, и ее не обязательно делать... ну может я че то путаю, поэтому не буду переделывать

 

Раз тут все вариантами мерюются , то вот мой вариант ))

Code:

var
 s1,s2:real;
begin
     writeln('#########################');
     write('R (kolca) = ');
     readln(s2);
     write('R (otverstia) = ');
     readln(s1);
     if (s1>=s2) then writeln('Error : R(otverstia) >= R(kolca)')
     else writeln('S (kolca) = ',pi*(s2*s2-s1*s1):3:3);
end.

 

Вот отлаженная и исправленная версия EndLeSSDre@M

PHP:

type
  real = extended;
 var
   so,sk,s,rk,ro: real;
   ok: boolean;
begin
  ok:=false;
  while not ok do
    begin
      writeln('vvedide radius colca');
      readln(rk);
      writeln('vvedide radius otverstia');
      readln(ro);
      if rk<=ro then writeln('ne vernij vvod')
      else
        begin
          sk:=pi*sqr(rk);
          so:=pi*sqr(ro);
          s:=sk-so;
          writeln('Ploshad=',s:0:3);
          ok:=true;
        end;
    end;
  readln;
end.

В Паскале ^ нельзя использовать, так же в константу пихать pi не нужно, она и так есть

 

Soherox Редиска ты))) я обиделся))) про ^ уже понял и переделал))) про константу запамятовал))) и все равно ты редиска)))

и вообще надо уже научиться мне в лесенку делать код))) а то у тебя больно элегантно выглядит)

и вообще, если люди не могут решить задачи такой сложности, то че тут говорить о будущих программистах((( даже обидно как то

 

На счёт pi , да запамятовал , бывает