![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
mafia1232 |
![]()
Сообщение
#21
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
в var не надо count прописать? а то у меня ругается
как writeln написать? чтобы кол-во букв "а" выводил ? Сообщение отредактировано: mafia1232 - 2.06.2005 10:28 |
mafia1232 |
![]()
Сообщение
#22
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
а код пока такой получился
Сообщение отредактировано: mafia1232 - 2.06.2005 10:26 |
hiv |
![]()
Сообщение
#23
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Паскаль это не басик! В нем все переменные должны прописываться и инициализироваться. Это в басике взял переменную и использовал (тип сам подберется и нулем проинициализируется или пустой строкой). Еще раз - УЧИ МАТЧАСТЬ!
ЗЫ: Код правильный - так держать! ![]() writeln('Букв А=',count); Сообщение отредактировано: hiv - 2.06.2005 10:14 -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
mafia1232 |
![]()
Сообщение
#24
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
а как тогда посчитать самое короткое слово, чего -то искал, но не нашел.
допустим Иванов Алексей Петрович как сделать чтоб именно слово "иванов" он посчитал самым коротким? Сообщение отредактировано: mafia1232 - 2.06.2005 10:28 |
mafia1232 |
![]()
Сообщение
#25
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вывести самое короткое слово.
Цитата Если нет, то выкладывай код - поможем! ну помогите код выше постом |
hiv |
![]()
Сообщение
#26
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
берешь снова счетчик и считаешь количество букв (не пробелов) пока не встретишь пробел, т.е. слово закончилось. Потом сравниваешь значение счетчика с переменной min, в которой будет храниться минимальное значение счетчика. А его инициализируешь значением длины всей строки. И если счетчик меньше, то его значение присваиваешь переменной min.
А еще гдянь сюда: FAQ: разбиение строки на слова -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
mafia1232 |
![]()
Сообщение
#27
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
а ты просто написать не можешь? щас уезжать надо на зачет и времени думать нету. напиши плиз. :molitva: :molitva:
:molitva: hiv :molitva: :molitva: :molitva: |
hiv |
![]()
Сообщение
#28
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Здесь вообще-то помогают тем кто хочет учиться. А ты досиделся пока сдавать пора не пришла. На:
Исходный код program p14; uses crt; var s,ss,sm:string; l,i,count,min:integer; begin clrscr; writeln('vvedite stroky'); readln(s); l:=length(s); writeln('Dlina stroki=',l); {podschet kol-vo bykv a} count:=0; for i:=1 to l do if s[i]='a' then inc(count); writeln('bykv a=',count); min:=l; sm:=''; ss:=''; i:=1; while i<=l do begin if s[i]=' ' then begin ss:=''; while (i<=l)and(s[i]=' ') do inc(i); end else begin while (i<=l)and(s[i]<>' ') do begin ss:=ss+s[i]; inc(i); end; if length(ss)<min then begin min:=length(ss); sm:=ss; end; end; end; writeln('Korotkoe slovo=',sm); writeln('Dlina korotkogo slova=',length(sm)); readln; end. ЗЫ: Сам разбирайся. No comments! -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
mafia1232 |
![]()
Сообщение
#29
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
спасибо огромное, но я до конца не досидел. дали еще 2 недели на все эти задачи и еще 3 прибавили, их я пока сам помучаю.
|
mafia1232 |
![]()
Сообщение
#30
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
исправте(если неправильно) и добавте по условию
создать массив и найти в нем max элемент и поменять у элемента знак на противоположный. и выводит массив с измененным элементом. от что получилось, но не работает, хотя списал из справочника (задача была с похожими условиями на поиск максимального значения) Код program p3; uses crt; type vector=array [1..100] of integer; var A:vector; i,n,k:integer; max:real; begin clrscr; writeln('vvedite razmernost'); readln(n); for i:=1 to n do begin write('vvedite [',i,'] elementov massiva'); readln(A[i]); end; writeln('massive A'); for i:=1 to n do write (A[i]:3,''); writeln; for i:=1 to n do read(A[i]); max:=A[1]; for i:=2 to n do if A[i]>max then max:=A[i]; writeln('maximalniu element massiva: ',max:6:2); end. Сообщение отредактировано: mafia1232 - 23.06.2005 11:10 |
hiv |
![]()
Сообщение
#31
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Вот так будет работать, если от куда-то списываешь, то правильно списывай!
program p3; -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
mafia1232 |
![]()
Сообщение
#32
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
и вот на последовательность
последовательность задается формулой (((-1)^n)*(2^n))/n вывести сумму членов ряда и первые члены задача без процедур. лекая, но я забыл как решать ![]() насчет массива: все работает после добавления readln ( ![]() Сообщение отредактировано: mafia1232 - 23.06.2005 11:32 |
klem4 |
![]()
Сообщение
#33
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
эээ... ну наверное всетаки надо искать номер максимального элемента , а не его значение
![]()
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
mafia1232 |
![]()
Сообщение
#34
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
ну и куда вставить твои строчечки?(объясни) и как сделать то , что я накалякал в Сегодня, 12:27 PM
Сообщение отредактировано: mafia1232 - 23.06.2005 11:34 |
volvo |
![]()
Сообщение
#35
|
Гость ![]() |
mafia1232,
ты думать САМ когда-нибудь начнешь? Смысл какой ЗА ТЕБЯ делать задачи? Потом ты получишь диплом, и что? Так что начинай думать. Уж Цитата куда вставить твои строчечки? можно самому догадаться... |
klem4 |
![]()
Сообщение
#36
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
на, не мучайся уже ...
uses crt; Сообщение отредактировано: klem4 - 23.06.2005 11:48 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
mafia1232 |
![]()
Сообщение
#37
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
какой к черту диплом? у меня специальность не програмист. это так общепознавательный предмет. и в этом году он заканчивается. на 2 курсе его не будет.
спасибо за задачу. Сообщение отредактировано: mafia1232 - 23.06.2005 11:57 |
mafia1232 |
![]()
Сообщение
#38
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
последовательность задается формулой (((-1)^n) * (2^n))/n
вывести сумму членов ряда и первые члены про последовательность. вот мой код Код program p2; uses crt; var a,i,n:integer; s,s1:real; begin clrscr; writeln('vvedite n'); readln(n); for i:=1 to n do begin a:=((exp(i)*ln(-1))*(exp(i)*ln(2))/i) s:=s+1; end; writeln('summa = ',s:8:3); readln; end. вопросы: 1)как вывести первые члены последовательности 2) про s он пишет, что тип не подходит! на что заменить? 3)как ln(-1) по другому задать, а то чисто математически работать не будет. Сообщение отредактировано: mafia1232 - 23.06.2005 17:35 |
klem4 |
![]()
Сообщение
#39
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Естественно это не будет работать ... во первых там у тебя полная ерунда написана ... ну например Ln(-1) это чему равно по твоему ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
mafia1232 |
![]()
Сообщение
#40
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 46 Пол: Мужской Репутация: ![]() ![]() ![]() |
про ln я знаю и это один из вопросов
ввести переменную d=ln(1), а d потом возвести в степень -1? Сообщение отредактировано: mafia1232 - 23.06.2005 12:44 |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 10:12 |