Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Daniilka]

Но ведь в таком случае получится не один условный оператор, а несколько А в условии задачи говорится, что нужен один условный оператор и без использования OR и AND

Присвоить все в булинову переменную и уже ее без 'or' и 'and' пихнуть в IF.


ЗЫ: Вы вообще о чем, граждане?

[Bjorndalen]

есть такой вопрос. Программа работает правильно, значение находит верно, оно совпадает с бибилотечной функцией, но при больших значениях n происходит переполнение памяти, как можно облегчить программу, чтобы она работала так же правильно? Диапазон допустимых значений входных данных таков: 1<x<1, 1=<n<=9

Код

Program var3;
var slag,x, chisl, znam, arc, sum,bib : real;
      n, i, z : integer;
begin
writeln('vvedite X and N');
readln(x,n);
if (x>=1) or (x<=-1) or (x=0) then writeln('Ukazannoe znachenie nedopustimo')
else begin
bib:=0;
sum := 0;
for i := 1 to n do
begin
  arc := 0;
  znam := 1;
  slag := 0;
  z := 1;
  chisl:=x*i;
   repeat
    slag := (chisl * z) / znam;
    arc := arc + slag;
    chisl := chisl * x * x * i * i;
    znam := znam + 2;
    z := z * (-1);
   until (abs(slag/arc) < 1e-10);
  sum := sum + arc;
  bib:=bib+arctan(x*i);
end;
writeln('iskomaya summa ravna ',sum:0:11);
writeln('bibliotechnaya funkcia ',bib:0:11);
end;
readln;
end.

[MadDog.er]

есть такой вопрос. Программа работает правильно, значение находит верно, оно совпадает с бибилотечной функцией, но при больших значениях n происходит переполнение памяти, как можно облегчить программу, чтобы она работала так же правильно? Диапазон допустимых значений входных данных таков: 1<x<1, 1=<n<=9

Код

Program var3;
var slag,x, chisl, znam, arc, sum,bib : real;
      n, i, z : integer;
begin
writeln('vvedite X and N');
readln(x,n);
if (x>=1) or (x<=-1) or (x=0) then writeln('Ukazannoe znachenie nedopustimo')
else begin
bib:=0;
sum := 0;
for i := 1 to n do
begin
  arc := 0;
  znam := 1;
  slag := 0;
  z := 1;
  chisl:=x*i;
   repeat
    slag := (chisl * z) / znam;
    arc := arc + slag;
    chisl := chisl * x * x * i * i;
    znam := znam + 2;
    z := z * (-1);
   until (abs(slag/arc) < 1e-10);
  sum := sum + arc;
  bib:=bib+arctan(x*i);
end;
writeln('iskomaya summa ravna ',sum:0:11);
writeln('bibliotechnaya funkcia ',bib:0:11);
end;
readln;
end.

ну так а что ты хотел Real у нас диапазон от скольки до сколько?
/me думает такс гдето у мну была таблица со значениями типов
используй тип данных с большим диапозоном

[Bjorndalen]

Позвольте спросить, а какой? Чтобы вещественный и большой диапазон, может longreal

[pavel]

есть такой вопрос. Программа работает правильно, значение находит верно, оно совпадает с бибилотечной функцией, но при больших значениях n происходит переполнение памяти, как можно облегчить программу, чтобы она работала так же правильно? Диапазон допустимых значений входных данных таков: 1<x<1, 1=<n<=9

есть подозрение, что переполнение происходит, когда x*n выходит из диапазона -1<x<1. Для x>1 и x<-1 другие разложения в ряд.

[AlRunner]

Позвольте спросить, а какой? Чтобы вещественный и большой диапазон, может longreal

Используй тип double!

[pavel]

Используй тип double!

зачем менять тип данных, если точность вычислений от этого не изменится (она жестко задана в программе = 1e-10), и ей не приходится оперировать такими большими значениями, которые бы не поместились в тип real?

[Sandro]

народ помогите плиз прогу в QBasic'е надо написать: дан двумерный целочисленный массив A(m;n). Задается с экрана либо генерируется в пределах (-20;20) Требуется найти среднее арифметическое каждого столбца

ну вот а мне бы решение задачи этой в паскале.

Сообщение отредактировал Sandro - Oct 13 2007, 06:39

[Bjorndalen]

зачем менять тип данных, если точность вычислений от этого не изменится (она жестко задана в программе = 1e-10), и ей не приходится оперировать такими большими значениями, которые бы не поместились в тип real?

Может дело в большом количестве повторений циклов? В памяти не умещается....

[pavel]

Может дело в большом количестве повторений циклов? В памяти не умещается....

по-моему, это все же связано с тем, что ограничение ты задаешь для X, а арктангенс вычисляешь для X*I (I=1..N) при помощи ряда, который сходится только если аргумент в диапазоне (-1, 1). когда X*I выходит из этого диапазона, значения в переменных arc, chisl и slag должны довольно быстро расти и, возможно, переполнение происходит, когда одна из них уже не помещается в тип real.
очень большое кол-во циклов (бесконечное) можно получить, задав значения X и N равными 1, будет ли переполнение в этом случае или программа просто "зависнет"?

Сообщение отредактировал pavel - Oct 13 2007, 18:06

[Bjorndalen]

очень большое кол-во циклов (бесконечное) можно получить, задав значения X и N равными 1, будет ли переполнение в этом случае или программа просто "зависнет"?

Программа зависла

[AlRunner]

Программа зависла

С какими входными данными она виснет? Что-то не желает оня у меня глючить, может она у тебя не глючит а просто ряд не сходится ну или долго не сходится?!

[dimka999]

ну вот а мне бы решение задачи этой в паскале.

Код

program mas;
uses crt;
const m= 4; n= 3;
var a: array[1..4,1..3] of integer;
    b: array[1..3] of real;
    i,j: integer;

begin
clrscr;
randomize;

for i:= 1 to m do
  begin
    for j:= 1 to n do
      begin
        a[i,j]:= random(20) - 10;
        write(a[i,j]:4);
      end;
    writeln;
  end;

writeln;
for i:=1 to n do
  begin
     b[i]:=0;
     for j:=1 to m do
       b[i]:=b[i] + a[j,i];
     b[i]:=b[i]/m;
     write(b[i]:4:1,' ');
  end;
readln;
end.

[Bjorndalen]

С какими входными данными она виснет? Что-то не желает оня у меня глючить, может она у тебя не глючит а просто ряд не сходится ну или долго не сходится?!

Читай цитату, на которую я ответил - программа зависла при входных данных 1 и 1 А вообще, программа работает, только не может оперировать большими числами, появляется ошибка 205: "Floating point overflow"

[SiMM]

программа зависла при входных данных 1 и 1

По условию задачи они недопустимы, да и ряд, очевидно, не сходится (числитель растёт значительно быстрее знаменателя).

[Bjorndalen]

По условию задачи они недопустимы, да и ряд, очевидно, не сходится (числитель растёт значительно быстрее знаменателя).

Да это всё понятно, но вот если например взять x=0.9 и n=3, то произойдёт ошибка переполнения с плавающей точкой... есть ещё предположение, что сама программа несовершенна, может быть можно её как-то упростить, чтобы памяти меньше занимала?

Сообщение отредактировал Bjorndalen - Oct 14 2007, 14:01

[AndrewDragon]

Код

bib:=0;
bib:=bib+arctan(x*i);
writeln('bibliotechnaya funkcia ',bib:0:11);

замени просто на

Код

writeln('bibliotechnaya funkcia ',arctan(x*i):0:11)

потом

Код

slag := (chisl * z) / znam;
z := z * (-1);

замени на

Код

slag := (chisl * (-1)) / znam;

это так...для экономии чего-нибудь)))

Сообщение отредактировал AndrewDragon - Oct 20 2007, 18:30

[Bjorndalen]

Код

slag := (chisl * z) / znam;
z := z * (-1);

замени на

Код

slag := (chisl * (-1)) / znam;

это так...для экономии чего-нибудь)))

Эту операцию я выполнял, но почему-то результат выполнения программы не сошёлся с данными библиотечной функции

[Sandro]

1)перевод введенного числа в двоичную(или в 8,16 ричную) систему счисления
2)в римскую систему
примерно понимаю что в цикле, массив. но хз как.

[Gobbs]

1)перевод введенного числа в двоичную(или в 8,16 ричную) систему счисления
2)в римскую систему
примерно понимаю что в цикле, массив. но хз как.

http://forum.sources.ru/index.php?showtopic=42165