Форум: "Потрепаться";
Текущий архив: 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