|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.12.2007, 18:15 | #1 |
Регистрация: 26.11.2007
Сообщений: 6
|
Знатоки Паскаля ХЕЛП!!!!
На уроке Паскаля обматерил препода (просто он достал) и озверевший препод подкинул работы (20 задач) Почти все сделал тока вот осталось немного... Надеюсь на ваше понимание и взываю о помощи!!
1.Написать программу, определяющую чередуются ли в линейном массиве степени двойки и тройки. 2.Задан массив чисел А[1:N,1:M],упорядоченный по возрастанию по строкам и столбцам, т.е.: А[I,1]<А[I,2]<...<А[I,M] (при всех I), А[1,J]<A[2,J]<...<А[N,J] (при всех J). Найти элемент массива, равный заданному числу Х и отпечатать его индексы (I,J). Напечатать слово "НЕТ", если такого элемента не окажется. Х можно сравнить не более, чем с M+N элементами массива. 3.Написать программу, которая выдаст словами название введенного действительного числа. 4. В линейном массиве каждый элемент встречается дважды. Какие два равных элемента наиболее удалены друг от друга? |
05.12.2007, 18:39 | #2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Обматери еще раз и уже не препод, а сержант с капитаном "доставать" будут, заставлять плац топтать за забором. Как говорится, почувствуйте разницу.
|
06.12.2007, 17:56 | #3 |
Регистрация: 26.11.2007
Сообщений: 6
|
aa
Я это уже осознал... так что не кто не поможет и меня в боты?
|
06.12.2007, 19:48 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Life is too short, play more...
Как правильно задавать вопросы |
06.12.2007, 19:49 | #5 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 23
|
Этот вариант работает с числами от 0 до 9!
program asdf;
var chislo:integer; str:string; begin writeln('Введите число'); readln(chislo); case chislo of 0:str:='Ноль'; 1:str:='Еденица'; 2:str:='Два'; 3:str:='Три'; 4:str:='Четыре'; 5:str:='Пять'; 6:str:='Шесть'; 7:str:='Семь'; 8:str:='Восемь'; 9:str:='Девять'; end; writeln(str); readln; end. |
07.12.2007, 17:32 | #6 |
Регистрация: 26.11.2007
Сообщений: 6
|
хоть один откликнулся (спасибо тебе), мот кто ее что нибудь напишет плз!!!!
|
08.12.2007, 07:59 | #7 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
задача 4
Код:
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
09.12.2007, 11:38 | #8 |
Регистрация: 26.11.2007
Сообщений: 6
|
благодарю
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Русификация паскаля | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 21.03.2008 14:15 |
есть ли тут знатоки шарпа? | Alek86 | Общие вопросы .NET | 3 | 26.09.2007 15:49 |
перенос с паскаля на си | Ядовитый | Общие вопросы C/C++ | 2 | 29.06.2007 13:17 |
Качайте русский Хелп для Паскаля | Viteef | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 09.05.2007 07:51 |