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

← →
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 © (03.06.03 18:09)
> 2 Neox © (03.06.03 17:59)
>
> лично мне больше нравится вот так:
>
> case symbol of
> "0".."9": DoSmth;
> end;

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

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

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

2 Vint © (04.06.03 10:24)

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

Нет.

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

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

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

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

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

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

Не думаю что стоит продолжать этот разговор мною начатый. Дело в том что я просто спросил есть ли какая-либо функция проверяющая символ на предмет того что это цифра.
О решении с помощью 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;
Должно работать хотя я не проверял :))))

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

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

а это

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

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

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