Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Надо решить пару задач на Delphi - 10$   Найти похожие ветки 

 
Leonid   (2003-06-03 13:19) [0]

Надо решить пару задач на Delphi - 10$

Привет,
Надо решить следуюшие задачи ( с консольном формате ), плачу 10$ по WebMoney.

****************************************************************

Задача 8008
Вводится прямоугольный массив. Перевернуть его симметрично относительно средней линии, т. е. для массива
1 2 3 4 5
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
5 6 7 8 9

результатом будет
5 6 7 8 9
4 5 6 7 8
3 4 5 6 7
2 3 4 5 6
1 2 3 4 5

Динамическими массивами не пользоваться.
Вход
В первой строке входа дано количество строк M и количество столбцов N в массиве. Далее следуют MxN элементов массива в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (целые числа, по одному в каждой строке).
Выход
На выход напечатать MxN элементов результата в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (целые числа, по одному в каждой строке).
Пример
Вход:

2 5
8
43
54
100
67
27
31
68
55
33
Выход:

27
31
68
55
33
8
43
54
100
67

****************************************************************

Задача 8020
Вводится прямоугольный массив. Вывести только те элементы массива, "после" которых (до конца массива) стояттолько числа, меньшие данных. Один элемент будем считать идущим "после" другого, если он стоит в той же строке правее, либо в строках ниже. Динамическими массивами не пользоваться.
Вход
В первой строке входа дано количество строк M и количество столбцов N в массиве. Далее следуют MxN элементов массива в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (целые числа, по одному в каждой строке).
Выход
В каждую строку выхода напечатать один элемент результата, либо no, если ни одного элемента с указанным свойством нет.
Пример
Вход:

3 3
1
3
4
9
7
6
4
5
6
Выход:

9
7
6

****************************************************************

Задача 8022
Вводится прямоугольный массив. Отсортировать его. Критерий сортировки следующий: если строки массива выписать друг за другом, получится отсортированный одномерный массив. Например, массив из задачи 8021 отсортирован. Динамическими массивами не пользоваться.
Вход
В первой строке входа дано количество строк M и количество столбцов N в массиве. Далее следуют MxN элементов массива в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (целые числа, по одному в каждой строке).
Выход
На выход напечатать M*N элементов результата в следующем порядке: сначала элементы первого столбца, затем элементы второго столбца и т.д. (целые числа, по одному в каждой строке).
Пример
Вход:

3 3
4
6
3
8
2
9
1
5
7
Выход:

1
4
7
2
5
8
3
6
9

****************************************************************

Задача 9012
Разработать функцию IsPerev(const S:string):boolean, определяющую, является ли строка S перевертышем (читается одинаково с начала и с конца). С помощью данной функции вывести только такие строки из введенного набора, которые являются перевертышами.
Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.
Выход
На выход напечатать строки результата, по одной в каждой строке.
Пример
Вход:

4
abc
aba
abcab
a
Выход:

aba
a

****************************************************************

Задача 9028
Разработать функцию InsDigits(const S:string):string, возвращающую строку, в которой после каждой цифры строки S вставлены еще две такие же. С помощью данной функции у каждой строки из введенного набора после каждой цифры вставить еще две такие же.
Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.
Выход
На выход напечатать строки результата, по одной в каждой строке.
Пример
Вход:

3
abc
ab1234c
a1b
Выход:

abc
ab111222333444c
a111b

****************************************************************

Спасибо!


 
Polevi   (2003-06-03 13:37) [1]

деньги вперед ?


 
Skier   (2003-06-03 13:38) [2]

Мда...Супербизон !


 
Palladin   (2003-06-03 13:41) [3]

парень знает куда постить, щаз такая дикая конкуренция возникнет


 
Apachi   (2003-06-03 13:47) [4]

Денги вечером, стулья утром!!! :)


 
Дмитрий К.К.   (2003-06-03 13:54) [5]

За такую цену тебе редактор a-la Delphi напишут.


 
Ann   (2003-06-03 13:57) [6]


> Дмитрий К.К. © (03.06.03 13:54)
> За такую цену тебе редактор a-la Delphi напишут.

:))


 
k-man   (2003-06-03 14:03) [7]


> Денги вечером, стулья утром!!! :)

-А можно утром стулья, а вечером деньги?
-Можно, но стулья деньги вперед!

ЗЫ Какие сроки?


 
k-man   (2003-06-03 14:09) [8]


> -Можно, но стулья деньги вперед!

Поправочка стулья исключить.. ОписАлся...


 
VAleksey   (2003-06-03 14:20) [9]

Сам пиши за такие деньги :-).
Ну если кому только времени не жалко.


 
k-man   (2003-06-03 14:52) [10]

Я ради интереса сделал задачу №8020
Если надо то могу кинуть сюда код. Проверил на примере - работает.
Только без динамических массивов там убого получается
потому как тогда размер массива фиксирован [0..2,0..2].
Значения в массив читаются Readln"ом.
И еще судя по примеру там последний элемент массива тоже
входит в число исследуемых элементов. Если бы это было не так шестерка бы не вошла. Поэтому я так и сделал.
Другие задачи делать не хочется так как я не знаю что такое WebMoney.



 
Vint   (2003-06-03 15:04) [11]


Я бы взялся если бы таких задачек было бы штук сто ;)


 
k-man   (2003-06-03 15:13) [12]

1000$?
Да в хозяйстве не помешает...


 
Ru   (2003-06-03 15:35) [13]

первую задачу можно решить через строки :)


 
Ihor Osov'yak   (2003-06-03 15:55) [14]

2 VAleksey © (03.06.03 14:20)

А почему? Задачи-то начального уровня, работы там часа на три максимум.. И по три уе для бегин-левел вполне адекватная оплата.. Но влом мне чего-то.. Ну и не бегин-левел я, однако..


 
k-man   (2003-06-03 16:08) [15]

2Ihor Osov"yak
Согласен...
В функции ISPerev
у меня вообще 8 строк получилось....


 
Aristarh   (2003-06-03 16:30) [16]

И куда только подевались "профессионылы" с веток типа "подскажите что написать"? Вот для них бы раздолье было.


 
k-man   (2003-06-03 16:35) [17]


> И куда только подевались "профессионылы" с

Хм... На то они и проффесионалы


 
Ru   (2003-06-03 16:36) [18]

>Aristarh © (03.06.03 16:30)

:)) 100%


 
Скорбящий   (2003-06-03 16:41) [19]

Да, а публика зажратая однако...
Ну помогите парню хоть за бесплатно, если все такие понтовые.
А он вам "Спасибо" скажет. Ведь это куда дороже несчастных 10 бумажек, которые могут принести ещё и несчастье...


 
Anatoly Podgoretsky   (2003-06-03 17:08) [20]

А пару задач выбирать по своему выбору?


 
k-man   (2003-06-03 17:22) [21]


> Да, а публика зажратая однако...
> Ну помогите парню хоть за бесплатно, если все такие понтовые.
>

Нет никто не сказал что мы здесь понтовые. Во всяком случае я-))
Просто не знаю как пользоваться WebMoney.
А вот что интересно:
В последней задаче(про функцию InsDigits) для того чтобы ее решить нужно просто узнать является ли сивол строки - цифрой.
Интересно как это сделать.. В принципе можно сравнить поочередно
с "1","2" и т.д. но должна быть какая-то функция для такой прповерки..
Может кто знает?
Да и еще: зачем бессмысленное ограничение на использование динамических массивов во второй задаче? Ведь чтобы отсортировать матрицу надо ее сначала сформировать...


 
ZZ   (2003-06-03 17:37) [22]

Десять у.е. это за все или за каждую ? :)


 
k-man   (2003-06-03 17:40) [23]


> Десять у.е. это за все или за каждую ? :)

За все конечно..


 
Neox   (2003-06-03 17:42) [24]

$10 - за каждую ПАРУ задач, читайте заголовок ветки =)


 
k-man   (2003-06-03 17:44) [25]


> 10 - за каждую ПАРУ задач, читайте заголовок ветки =)

Пара это он хотел сказать обо всех задачах.
В данном случае "пара" - несколько.


 
DrPass   (2003-06-03 17:53) [26]

А лучше бы заплатить каждому ламеру по $10, чтобы они свалили с форума - вот бы жизнь тогда бы началась!


 
Neox   (2003-06-03 17:59) [27]

> А вот что интересно:
В последней задаче(про функцию InsDigits) для того чтобы ее решить нужно просто узнать является ли сивол строки - цифрой.
Интересно как это сделать.. В принципе можно сравнить поочередно
с "1","2" и т.д. но должна быть какая-то функция для такой прповерки..
Может кто знает?


Это не подойдет:

symbol: Char;

if symbol in ["1".."9"] then DoSmth;


 
Скорбящий   (2003-06-03 18:00) [28]

Если все ламеры свалят с форума, супер-мудрецам останется только ворчать друг на друга, после чего лавку точно прикроют.


 
Ihor Osov'yak   (2003-06-03 18:09) [29]

2 Neox © (03.06.03 17:59)

лично мне больше нравится вот так:

case symbol of
"0".."9": DoSmth;
end;


 
McSimm   (2003-06-03 18:11) [30]

Как много разговоров... :)

Однако обсуждать уже нечего, поздно :)


 
k-man   (2003-06-03 18:15) [31]


> Однако обсуждать уже нечего, поздно :)

ОТкуда такая инфа.
> Ihor Osov"yak © (03.06.03 18:09)
> 2 Neox © (03.06.03 17:59)
>
> лично мне больше нравится вот так:
>
> case symbol of
> "0".."9": DoSmth;
> end;

Ну я так и думал....


 
Vint   (2003-06-04 09:45) [32]

>Ihor Osov"yak © (03.06.03 18:09)

а можно вот так :)))

case Ord(symbol) of
48..57 : DoSmth;
end;



 
vidiv   (2003-06-04 09:50) [33]

пиши на мыло vidiv@mail.ru
договоримся... или по асе: 169406011


 
Кулюкин Олег   (2003-06-04 10:09) [34]

2 DrPass © (03.06.03 17:53)
> А лучше бы заплатить каждому ламеру по $10, чтобы они свалили с форума - вот бы жизнь тогда бы началась!
Где же взять столько миллионов долларов :)


 
Ihor Osov'yak   (2003-06-04 10:12) [35]

2 Vint © (04.06.03 09:45)

Есть такое понятие, как читабельность кода..


 
Vint   (2003-06-04 10:24) [36]

>Ihor Osov"yak © (04.06.03 10:12)

А что так серьезно то?
напряги с юмором?


 
Ihor Osov'yak   (2003-06-04 10:30) [37]

2 Vint © (04.06.03 10:24)

>напряги с юмором?

Нет.

>А что так серьезно то?

А потому, что (04.06.03 10:24) как то на юмор не очень похоже.. Даже учитывая наличие смайлика..


 
Vint   (2003-06-04 10:40) [38]

Ihor Osov"yak © (04.06.03 10:30)
на юмор не очень похоже.. Даже учитывая наличие смайлика..


там не один смайлик а целых три! но для некотрых конечно надо наверно через слово писать :
- не воспринимайте это серьезно;
- это шутка;
- так делать не надо я просто шучу;
- это я прикололся для поддержания темы начатой Neox © (03.06.03 17:59);
- и т.д.

вообще обсуждать решение подобных задач уже смешно, и может рассматриваться только как стеб!

расслабься, и смотри на жизнь веселее ;)


 
k-man   (2003-06-04 11:29) [39]

Не думаю что стоит продолжать этот разговор мною начатый. Дело в том что я просто спросил есть ли какая-либо функция проверяющая символ на предмет того что это цифра.
О решении с помощью case объяснять не надо. Нет так нет.
В данном случае функция InsDigits(S:string) : string могла бы выглядеть так:
function InsDigits(s:string) : string;
var
i : integer;
Res : string;
begin
for i := 1 to length(s) do
case s[i] of
"0".."9" : res := Concat(res,s[i],s[i],s[i]);
else
res:=res+s[i];
end;
Result := res;
end;

Должно работать хотя я не проверял :))))


 
uw   (2003-06-04 11:45) [40]

А мне все-таки больше нравится множество, т.к. можно написать, например, так:

symbol: Char;
...
if symbol in ["1".."9", symbol] then
DoSmth;

а это

symbol: Char;
...
case symbol of
"0".."9", symbol: DoSmth;
end;

не катит. :приветливая улыбка:



Страницы: 1 2 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.55 MB
Время: 0.032 c
1-84273
prorok2
2003-06-14 13:51
2003.06.26
Добавление OnClick для меню в run-time


6-84511
Gandalv
2003-04-19 18:12
2003.06.26
TWebBrowser


1-84407
Saracin
2003-06-09 17:46
2003.06.26
Как выровнить один пункт меню например Help к левой границе.


3-83899
mic_2000
2003-05-29 12:00
2003.06.26
Вопросик по rFunc для Ib6


1-84236
Леонид Федьков
2003-06-13 11:48
2003.06.26
DELPHI - MS Word





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский