Задачи на Delphi структурные программы

@.:EAGLE:. · Регистрация: 11.12.2008

Author24 — интернет-сервис помощи студентам

Добрый день.
Скинули условия задач на Delphi. Несколько задач решил. Но никак не могу понять как решить эти:
1) Имеется слово, проверить, является ли оно палиндромом.
(Не могу понять каким функциями лучше пользоваться, вроде есть функция реверсии слова, может с ней?)

2) Имеется строка символов. Написать программу, которая бы меняла все четные символы на точки, а каждый третий на вопрос.
(Как понимаю в цикле. Но как выяснить именно четные символы или каждый третий?)

3) Даны 6 цифр: a, b, c, d, e, f. Написать программу, вырабатывающую max и min элемент, и посчитать их сумму.
(Проверять какдое число с каждыйм не вариант, много условий. В цикле брать 1 число как max и потом сравнивать? Тоже не понятно).

По идее функциями языка Delphi пользоваться можно.

Комментарий модератора

Читаем правила форума!
3.15 - Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
(на первый раз прощается)

deathNC · 11.12.2011, 13:46

1. Палиндром (протестил - вроде правильно)
вот тебе функция:

Delphi

function TForm1.IsPalindrom(s: String): boolean;
var
  i: Integer;
  c: Boolean;
begin
  c := false;
  for i := 1 to Length(s) div 2 do
    c := c or (s[i] <> s[Length(s) - i + 1]);
  result := not c;
end;

Добавлено через 6 минут
2. Замена

Сообщение от .:EAGLE:.

Написать программу, которая бы меняла все четные символы на точки, а каждый третий на вопрос.

тут не понятно. Получается, два условия в некоторых случаях подходят: к примеру, символ под индексом 6 (или 12, 18 и т.д.) - он и чётный и некоторый третий. Как быть сам решишь, напишу только как обнаружить, что третий он или чётный и заменить:

Delphi

for i := 1 to Length(s) do
  If i mod 2 = 0 then // если остаток от деления на 2 равен нулю, то оно чётное
    s[i] := '.'
  else if i mod 3 = 0 then // если индекс кратный трём, то:
    s[i] := '?';

В данном коде каждый третий символ, являющийся ещё и чётным, будет заменён на точку, а не на вопрос.

Добавлено через 1 минуту

Сообщение от .:EAGLE:.

Даны 6 цифр: a, b, c, d, e, f.

Тут массив использовать можно?

@.:EAGLE:. · 11.12.2011, 13:50 **[ТС]**

Сообщение от deathNC

Тут массив использовать можно?

По идее да.

deathNC · 11.12.2011, 13:58

3. массивы

Delphi

var
  a: Array[1..6] of Integer;
  i, min, max: Integer;
begin
  Randomize;
  // не придумал как заполнить, так что рэндомом. А если что, сам перепишешь:
  for i := 1 to 6 do
    a[i] := Random(100);
  // ищем минимумы и максимумы:
  min := 1;
  max := 1;
  for i := 2 to 6 do
    If a[min] > a[i] then
      min := i
    else if a[max] < a[i] then
      max := i;
  ShowMessage(IntToStr(a[min] + a[max]));
end;

чтобы ты не запутался, замечу: max и min тут хранят не сами значения, а индексы элементов.

@.:EAGLE:. 240 / 91 / 6 Регистрация: 11.12.2008 Сообщений: 949
	11.12.2011, 13:50 [ТС]	3
	Сообщение от deathNC Тут массив использовать можно? По идее да. 0

	11.12.2011, 13:58