Добро пожаловать на Форум SoftWeb.ru.
 
Весна

Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.

Форум SoftWeb.ru » Интернет » Программирование » Вопросы и ответы » Решебник (turbo pascal, Delphi)

Вопросы и ответы Здесь помогут решить Ваши проблемы. Задавайте вопросы не стесняясь, что пошлют учить мат. часть.

ОТВЕТИТЬ
Опции темы Опции просмотра Опции просмотра
Решебник (turbo pascal, Delphi)
Старый 11.05.2006, 18:21   #1
 
Статус: Гость
Сообщений: n/a
Exclamation Решебник (turbo pascal, Delphi)

Внимание! маленькое вступление.
Надеюсь по названию темы понятно о чем тут спрашивать.
При оформлении вопроса наиболее полно пишите тескт задачи, лучше целиком оригинал (обязательно на русском языке). Старайтесь не делать лишних постов, чтобы в будущем легче было искать нужную вам задачу. Если вы хотите когото устно поблагодорить, пользуйтесь личными сообщениями или кнопкой "спасибо". В этой теме остануться только посты с задачами и их решениями, все лишнее будет удаляться.

Список всех задач: [Ссылки могут видеть только зарегистрированные пользователи. ]
Алгоритмы решения стандартных задач по информатике: [Ссылки могут видеть только зарегистрированные пользователи. ]

Если вы написали свою задачу, а ее никто не решил в течении рабочей недели, составте сообщение-напоминание такого вида: "Кто нить решил задание из сообщения №9?" может про него просто забыли в рабочей канители, и после напоминания, обязательно помогут. Если же вы к тому времени сами или с чей то помощью, решили задачу, то не поленитесь, напишите свое решение, многие будут вам признательны.

Скачать Pascal:
Если у вас дома нет Turbo Pascal, а задание надо сделать за выходные, советую Free Pascal ([Ссылки могут видеть только зарегистрированные пользователи. ])
Так же можете скачать обычный досовский turbo pascal ([Ссылки могут видеть только зарегистрированные пользователи. ])


NEW!!! У нас открылась тема "Решебник С" ([Ссылки могут видеть только зарегистрированные пользователи. ]) просьба к тем кто владеет языком, если будет время, задачи из этого раздела не плохобы продублировать на turbo C. Если тема будет пополняться я ее помечу как "важная".

Overlord
  ЦИТИРОВАТЬ
Эти 6 пользователя(ей) сказали Спасибо за это полезное сообщение:
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Старый 22.12.2014, 18:33   #561
 
Статус: Рядовой
Регистрация: 14.12.2014
Сообщений: 2
СПАСИБО: 1
сказали Спасибо 0 раз(а) в 0 сообщении
По умолчанию Re: Решебник (turbo pascal, Delphi)

Извините, как описать index, ибо паскаль не знает такого, а я не понимаю j := Index( Substr( A, i, l - i + 1 ), " "); буду очень благодарен

Добавлено через 44 минуты
Вот что получилось, но ошибку выкидывает: "Неизвестное имя Index"
program doubleletters;
var a,a1,a2,b,c:string;
k,i,l,j:byte;
function substr(const a:string; const i,j:byte):string;
var b:string;
k:byte;
begin for k:=i to i+j-1 do
b:=b+a[k];
substr:=b;
end;
Function IsDoubleLetters ( Var A : String ) : Boolean;
Var
i : Integer;
ist : Boolean;
B : String;
Begin
ist := False;
B := Substr( A, 1, 1 );
For i := 2 To Length( A ) Do Begin
If Substr( A, i - 1, 1 ) = Substr( A, i, 1 )
Then ist := True
Else B := B + Substr( A, i, 1 );
End;
A := B;
IsDoubleLetters := ist;
End;
begin
l := Length( A );
i := 1;
While ( i < l ) Do Begin
j := Index( Substr( A, i, l - i + 1 ), ' ');
If j = 0
Then j := l - i + 1
Else j := j - 1;
If j = 0
Then Begin
B := ' ';
j := 1;
End
Else B := Substr( A, i, j );
If IsDoubleLetters ( B )
Then Begin
If i = 1
Then Begin
A1 := '';
B := ' ' + B;
End
Else A1 := Substr ( A, 1, i - 1 );
k := Length ( A );
If ( i + j ) > k
Then A2 := ' '
Else A2 := Substr ( A, i + j , k - i - j + 1 );
A := A1 + A2 + B;
l := l - j;
End
Else i := i + j;
End;
end.

Последний раз редактировалось Belkaorex; 22.12.2014 в 18:33. Причина: Добавлено сообщение
Belkaorex вне форума   ЦИТИРОВАТЬ
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Старый 31.10.2016, 23:27   #562
 
Статус: Рядовой
Регистрация: 31.10.2016
Сообщений: 1
СПАСИБО: 0
сказали Спасибо 0 раз(а) в 0 сообщении
По умолчанию Re: Решебник (turbo pascal, Delphi)

Помогите, пожалуйста, срочно нужно решить. Заранее спасибо.
1)Дана матрица A(N, M). Поменяйте местами её наибольший и наименьший элементы.
2) Дана матрица A(N, M). Вычислите вектор X(M), где значение Xj равно сумме положительных элементов j-го столбца матрицы A.
3) По заданному n постройте матрицы размером (n,n) вида

а) 1 0 ... 0
0 1 ... 0
. . . .
0 0 ... 1
б) n n-1 n-2 ... 1
0 n n-1 ... 2
. . . . .
0 0 0 ... n
в) 0 0 ... 0 1
0 0 ... 1 2
. . . . .
1 2 ... n-1 n
Alim0003 вне форума   ЦИТИРОВАТЬ
Старый 05.01.2018, 07:40   #563
 
Статус: Рядовой
Регистрация: 05.01.2018
Сообщений: 1
СПАСИБО: 0
сказали Спасибо 0 раз(а) в 0 сообщении
По умолчанию Re: Решебник (turbo pascal, Delphi)

вам задан массив а состоящий из n целых чисел и а1 а2 ...аn два элемента массива аi aj с индексами i j 1 <i<j<n могут образовать пару и силой этой пары назовем а1+aj. Найдите силу пары являющейся к-й по счету, если отсортировать все пары по убыванию силы
Арайлым вне форума   ЦИТИРОВАТЬ
Объявление
Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
ОТВЕТИТЬ

Метки
delphi, turbo pascal


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal Создание и работа с типизированными файлами Dina19 Языки программирования 2 20.05.2015 13:59
Решебник (turbo C, C Builder и прочие Си...) Anutik Вопросы и ответы 58 24.12.2013 18:31
Turbo Pascal. Решение сложных задач IvanLis Программирование 0 16.01.2008 15:44
Литература по Turbo Pascal SoftWeb Программирование 5 16.03.2007 16:43
Turbo Pascal 7 Overlord Средства разработки приложений 0 02.02.2007 08:36


Часовой пояс GMT +3, время: 16:33.

Нам нужна Ваша поддержка. Сбор средств на оплату дата-центра.
Яндекс цитирования