|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
29.04.2007, 19:05 | #1 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Несколько простых задачек на tp
Помогите пожалуйста. Задания надо сделать как можно быстрее, ибо будут проблемы в вузе. Прошу помощи.
1. Дано натуральное число n. Проверить, будут ли все цифры числа различными. 2. Дана последовательность натуральных чисел а1, а2, … аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение о данном факте. 3. Даны действительные числа a1, a2, … , an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai| > max{a1, a2, … , an}). 4. Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности. |
29.04.2007, 21:19 | #2 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
2 задача
Вот 2 задача:
Код:
Исходники программ - http:\\www.kort.3dn.ru
Последний раз редактировалось KORT; 29.04.2007 в 21:24. |
29.04.2007, 21:23 | #3 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
3 задача!!!
(замени целый тип данных на действительный)
Код:
Исходники программ - http:\\www.kort.3dn.ru
|
30.04.2007, 21:13 | #4 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Спасибо. 1 и 4 задачки ещё актуальны.
|
01.05.2007, 00:05 | #5 | |
Форумчанин
Регистрация: 26.01.2007
Сообщений: 278
|
Цитата:
Примерно так: temp:=length (number); for i:=1 to temp do begin if (number[i] > number[i+1]) or (number[i] < number[i+1] then result:=result+1 else halt; end; Последний раз редактировалось ATL; 01.05.2007 в 00:26. |
|
02.05.2007, 03:22 | #6 |
_________
Пользователь
Регистрация: 27.03.2007
Сообщений: 69
|
Вот четвёртая:
Код:
|
02.05.2007, 07:42 | #7 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Спасибо всем за помощь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Несколько очень легких задачек!проверьте себя!!на разные темы,от нах-я суммы до массивов!!прошу решить,кн | ruslan55 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 17.06.2008 12:43 |
Нужно решить 12-15 несложных задачек QBasic | *GobliN | Фриланс | 1 | 02.06.2008 20:46 |
Несколько простых задачек | RuZ | Помощь студентам | 1 | 11.02.2008 22:48 |
помогите с решением вот этих задачек | gamer.pro | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 17.01.2008 14:35 |