IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> горит практика по паскалю, паскаль
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


М
Пользуемся тегами !


Помогите с заданием.
завтра сдавать, а времени в обрез.
--//--
Пользуясь тем, что ln(1+x)=x-x2/2+x3/3-…+(-1)n-1 xn/n+…
При х [-1;1] вычислить значение ln(1+x) для указанного значения х0 [-1;1] с точностью е=0,001. Точность вычисления считается выполненной, если последний по модулю член в сумме меньшее.
--//--
нужно изменить, чтобы выводилось только первое вхождение символов.
Program Pr_6;
Uses crt;
Var s,max,z:string;
K,i,j,d,m,b:integer;c:boolean;
Begin
Clrscr;
Write('Vvedite stroku S: ');
Readln(s);
S:=s+' ';
Max:='';z:='';
for i:=1 to length(s) do
If (copy(s,i,1)<>' ')and(copy(s,i+1,1)=' ') then
Begin z:=z+copy(s,i,1);
If length (z)>length(max) then
Max:=z ;
Z:='';
End
Else z:=z+copy(s,i,1);
Writeln('MAX: ',max);
writeln;
For i:=1 to length(s) do
If (copy(s,i,1)<>' ')and(copy(s,i+1,1)=' ') then
Begin z:=z+copy(s,i,1);

d:=i; c:=false;
For j:=i-length(z)+1 to i-1 do
Begin

For m:=j+1 to i do
If s[j]=s[m] then c:=true; end;
If c=false then writeln(copy(s,i-length(z)+1,length(z)));
z:='';
{b:=b+1;
writeln('c=',c);
End;
If b=length(z) then writeln(z);}
End
Else z:=z+copy(s,i,1);
{ Writeln('z: ',z); }
Repeat
Until keypressed;
End.


Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


М
3. Название темы должно быть информативным. В описании темы указываем язык!!!


Исправляй.
и почему в других языках??? Переношу в задачи.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Максим

Репутация: -  0  +


Прога работает. e - это точность с которой необходимо посчитать ряд.... в конце сумма ряда визуально сравнивается с стандартными поцедурами паскаля по вычислению логарифма. Прикол программы в одном если увеличить х хотя бы до 2-х то происходит переполнение переменной и прога выдаёт весёлые результаты..... её можно переделать!!!! настроение будет переделаю
Program pr_4;
Var
e,t,s :extended;
x,i,zn:longint;
Begin
write('e= ');
Readln(e);
t:=1;
x:=1;
zn:=1;
s:=0;
i:=1;
While abs(t)>e do
begin
t:=x/zn;
x:=x*x;
zn:=zn+1;
i:=i+1;
if i mod 2 =0 then t:=-1*t;
s:=s-t;
end;
Writeln('s= ',s:26:20);
Writeln('ln(1+x)',ln(1+x):22:20);
Readln
End.


Сообщение отредактировано: Tonny_Bennet -


--------------------
Мечта женщины - быть женщиной мечты. Э. Севрус
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


ошибка в 7 строке.
error 116.must be in 8087 mode to compile this.
помогите плиз
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


первой строкой напиши {$N+}


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


да. действительно забавные.
буду благодарен если исправишь
пжлста
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


 ! 
Последнее китайское предупреждение: Либо ты переименовываешь тему, либо она летит в мусорку



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Леха

Репутация: -  0  +


закрыть тему

Сообщение отредактировано: Diablo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 15:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name