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

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

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

> Ход конем - "приветливость" програм, работа с масивом
сообщение
Сообщение #1


Пионер
**

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

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


Как можно сделать так, чтобы не спрашивать у пользователя сколько тот в дальнейшем собирается ввести чисел(записываемые в масив), а сделать хд конем, притом вычислив их кол-во. Учитывая то, что он может разделить их (числа) любыми знаками препинания(кроме точки, разумеется); и чтобы "числа"! содержищие неправильные знаки(к пр. символы алфавита) не записывались, а после выводилось сообщение, что молвв в таком-то числе была ошибка при написании.?
unsure.gif
Вот как я пытался это организовать. Но, конечно же мне явно не хватает знаний norespect.gif
Repeat
Writeln('‚ўҐ¤лвм ўҐЄв®а ¤л©б­Ёе зЁбҐ«');
Readln(vector);
If Length(vector)>5 then
begin
l:=0;
For i:=1 to Length(vector)-4 do
begin
Val(Copy(vector,1,Pos(' ',vector)-1),arr[i],z);
Delete(vector,1,Pos(' ',vector));
Inc(l);
end;

И кстати:, Пожалуйсто!:
http://forum.pascal.net.ru/index.php?showtopic=7406
http://forum.pascal.net.ru/index.php?showt...&st=0&p=53351&#

И:
тут задачка, вроде решил, но не понимаю тогда почему такое странное задание:
Цитата
Определить, сколько ф-я() пересекает ось ОХ(т.е. знаки в 2-х соседних точках разные)на промежутке х1,х2 . Разсмотреть 125 рабноотдаленных точек на промежутке
А вот и задача:
Program Peretin_OX;
Uses CRT;
var x,dx,t1,t2:double;
x1,x2,number:longint;
Begin
clrscr;
textcolor(7);
Repeat
Writeln('‚ўҐ¤iвм x1,x2');
Readln(x1,x2);
If x1>=x2 then
writeln('ЌҐўiа­Ё© ¤i Ї §®­!');
Until x1<x2;
dx:=(x2-x1)/125;
number:=0;
x:=x1;
repeat
t1:=((ln(x*x))/ln(3))+cos(pi/3+2*x*x*x);
x:=x+dx;
t2:=((ln(x*x))/ln(3))+cos(pi/3+2*x*x*x);
if (t1*t2)<0 then number:=number+1;
until x>=x2;
textcolor(2);
writeln('Љi«мЄiбвм ЇҐаҐвЁ­iў § OX: ',number);
readln
End.

Просто она действительно, считает кол-во пересечений,, но только в двух соседних точках, и так 125 раз, а не в общем, а значит при меньшем диапазоне может быть больше пересечений, Вобщем правильно ли я понял задание???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Я тебя про первую спрашиваю !!!
Вторая меня не интересует. Одна тема - один вопрос.
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Alex7   Ход конем - "приветливость" програм   4.12.2005 22:26
volvo   Alex7 вот тебе ввод программиста: 120 -4a3, 73 -12…   4.12.2005 22:38
Alex7   Я тебя не понял. Ты говоришь про последнюю задачу?…   5.12.2005 1:03
volvo   Я тебя про первую спрашиваю !!! Вторая…   5.12.2005 1:12
Alex7   Ясно, но я эт типо для экономии. Мне нужно просто…   5.12.2005 1:24
volvo   Alex7, я вторым постом задал вопрос, пока ты на не…   5.12.2005 1:28
Alex7   Из этих условий: ошибка в 7-м везде кроме там ток…   5.12.2005 1:44
Alex7   volvo, я ж те ответил! Очень надеялся на твой …   8.12.2005 13:54
volvo   Alex7, я что просил? Ты мне ответил? Тогда покаж…   8.12.2005 13:57
Alex7   Вот те результаты! Это числа, записаные в мас…   8.12.2005 14:08
volvo   Тогда вот так... Вот сама функция: function read_…   8.12.2005 14:41
Alex7   Да, это я и имел ввиду. Но тут есть одно но: Как д…   14.12.2005 1:55
volvo   Просто так ничего не бывает ... Тебе нужна была ун…   14.12.2005 2:17
GoodWind   а delimeter разве не множество ? :wink:   14.12.2005 2:20
Alex7   Из объяснений преподователей я понимал, что множес…   14.12.2005 3:40


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

 





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