Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
14.12.2009, 19:34
|
|
Познающий
Регистрация: 10.02.2009
Сообщений: 40
Провел на форуме:
59352
Репутация:
0
|
|
Помогите разобраться в pascale
Задача:
1)Найти слова начинающиеся и заканчивающиеся на те же буквы.
2)Дана символьная строка которая заканчивается точкой. Найти длину самого длинного и короткого слова.
|
|
|
14.12.2009, 20:28
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 130
Провел на форуме:
436500
Репутация:
11
|
|
Сообщение от >>serhio<<
Помогите разобраться в pascale
Задача:
1)Найти слова начинающиеся и заканчивающиеся на те же буквы.
Если всё правильно понял то вот:
Код:
program serhio_1;
var S: string; p: integer;
begin
write('Введи строку.. ');
readln(S);
repeat
p:= pos(' ',S);
if p=0 then p:=length(S)+1;
if S[1]= S[p-1] then write(copy(S,1,p-1),' ');
S:= copy(S,p+1,255);
until p=length(S)+1;
readln;
end.
UPD:
Сообщение от >>serhio<<
2)Дана символьная строка которая заканчивается точкой. Найти длину самого длинного и короткого слова.
Код:
program serhio_2;
var S: string; i,p,k,lowlen,maxlen: integer;
begin
write('Введи строку.. ');
readln(S);
k:=0; maxlen:=0;
p:= pos('.',S);
if p=0 then writeln('Строка не заканчивается точкой!')
else begin
S:= copy(S,1,p-1)+' ';
lowlen:= length(S);
for i:=1 to length(S) do
if S[i]= ' ' then begin
if k> maxlen then maxlen:= k;
if k<lowlen then lowlen:= k;
k:=0;
end else inc(k);
Writeln('Длина максимального слова: ',maxlen);
Writeln('Длина минимального слова: ',lowlen);
end;
readln;
end.
Удачи! 
Последний раз редактировалось Linkus; 14.12.2009 в 20:53..
|
|
|
|
14.12.2009, 20:56
|
|
Новичок
Регистрация: 14.12.2009
Сообщений: 1
Провел на форуме:
3870
Репутация:
0
|
|
[Pascal]
И так начну по-порядку...
Прошу у вас помощи, а именно, в помощи написания 2-х программ на языке Pascal.
Данные задачи являются бонусными, из-за этого я решить их никак не могу, даже никакие мысли по решению задач в голову не лезут.
Сроки оч сжатые, так что надеюсь что кто-нить откликнется не поздно
Так же хочу сказать, еслт кто не хочет мне помочь просто так, а может помочь за умеренную плату, стучим в аську или в ЛС, но лучше в аську...
ICQ:443366774
Задача №1:
"Массивы символов (строки); символьные файлы"
Составить программу, выполняющую в диалоге преобразования над текстовыми файлами согласно заданному варианту. Исходный текстовый файл создается с помощью текстового редактора и должен содержать произвольную последовательность различных символов.
В формулировках заданий используются следующие понятия: ЦЕПОЧКА - последовательность символов, каждый из которых отображается на экране; длина цепочки не превосходит 30 символов. СЛОВО - цепочка, ограниченная пробелами или не отображаемыми символами; регулярное слово - слово, состоящее только из больших английских букв;
ПАЛИНДРОМ - это слово, в котором символы при просмотре слева направо и справа налево совпадают. ЧИСЛО - слово, состоящее только из цифр.
Использование массивов допускается только для хранения отдельных элементов файла; для размещения всего файла массивы использовать нельзя.
Условие задачи:
Переписать последовательно содержимое двух файлов в третий, подсчитав количество всех символов, исключая пробелы, количество слов-палиндромов и отбрасывая встречающиеся числа.
Задача №2:
"Определение принадлежности точек заданной области"
В каждом варианте задается совокупность точек массивом констант, например,
type s=array[1 ..8] of real;
constx:s=(1.0, -1.1, -2.9, 6.1, 4.6, 7.1,-4.1, -2.0);
y:s=(-0.5, 1.1, 3.1, 4.1, 2.1, 4.3, -0.9, -2.1); Необходимо сформулировать условия принадлежности точек области, приведенной в приложении для каждого варианта. Составить логическую функцию, которая возвращает истину, если текущая точка принадлежит данной области, и ложь в противном случае.
Изображение:
З.Ы. Кодер найден
Последний раз редактировалось p0lk1l0; 14.12.2009 в 22:06..
|
|
|
|
15.12.2009, 21:20
|
|
Новичок
Регистрация: 04.05.2008
Сообщений: 8
Провел на форуме:
112204
Репутация:
0
|
|
Помогите плз с лабой на С
 |
|
|
|
16.12.2009, 01:24
|
|
Участник форума
Регистрация: 29.07.2007
Сообщений: 124
Провел на форуме:
1266562
Репутация:
60
|
|
помогите пожалуйста.....
может у кого-нить есть полный двоичный сумматор на delphi?
срочно надо.....
|
|
|
|
16.12.2009, 13:44
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Люди, нужна ваша помощь, нужно написать программу на delphi "Расписание студента" что бы она подключалась к БД (созданную в Office) и от туда брала само расписание.
Очень нужно, работу необходимо сдать завтра
|
|
|
|
16.12.2009, 15:55
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
Провел на форуме:
1494768
Репутация:
272
|
|
Pascal
Тема: Арифметика вещественных чисел. Вычисление по формулам
1.Дано х, y, z. Вычислить а, b, если
кроме умножения, добавления и вычетания, вычислить
Тема: Самые простые циклы
2.Дано вещественное число а, натуральное число л. Вычислить;
а (а - n)(а - 2n). ..(а - n2).
Тема: Самые простые циклы
3. Вычислить бесконечную сумму с заданной точностью e (е > 0). Считать, что необходимая точность достигнута, если вычисленная сумма нескольких первых слагаемых и дежурное слагаемое оказался по модули меньше, чем е, - эти и все следующие слагаемые можно уже не учитывать. вычислить:
Последний раз редактировалось Andres; 16.12.2009 в 16:04..
|
|
|
|
16.12.2009, 16:15
|
|
Постоянный
Регистрация: 24.11.2008
Сообщений: 416
Провел на форуме:
910902
Репутация:
100
|
|
ищутся исходники, шифрование, методы:
-Монофоническая замена
-Шифрование методом перестановки
Кому надо, имеется метод вижнера, RSA, частотная дешифровка
|
|
|
|
16.12.2009, 16:35
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
2SaiRus кинь RSA в ПМ с меня +
|
|
|
|
16.12.2009, 16:55
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
у меня времени нет, а человек очень просит:
на жаве написать 2 штуки:
1) написать вычисление n-го числа последовательности Фибоначчи так, чтобы имеющиеся k процессоров системы были равномерно нагружены
2) необходимо построить длинную арифметику и с ее помощью найти число е с точностью до 200 знака полсе запятой.
+++
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
