Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Массивы

Автор: kyubii 24.12.2006, 20:19

Нужна помошь в написании проги:

Сформировать по формуле и напечатать элементы массива D(9).

a(k)/scr(1-a(k), если a(k)<=0,5
f={
1/scr(1-a(k)), еслт a(k) >0,5

где а(к) - элемент массива А(9). Если в массиве А хотя бы один эллемент окажется больше или равным 1,прекратить вычисления и вывести текст.

Прогу в консольном режиме.

СУВ!

Автор: Rodman 24.12.2006, 21:52

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array [1..9] of real;
       i,j:integer;
begin
  for i:= 1 to 9 do
  begin
    readln(a[i]);
  end;
  for i:= 1 to 9 do
  begin
    if(a[i]<=0.5)then
      a[i]:=a[i]/sqrt(1-a[i])
    else
      a[i]:=1/sqrt(1-a[i]);
  end;
  for i:= 1 to 9 do
    Writeln(a[i,j]:8:5);
end.

Автор: kyubii 24.12.2006, 22:00

спасибо за оперативную помошь! =)