| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Массивы и символьные строки [D7]

Страницы:   < 1 2 3 >

СветаНеМогуСделать ©   (2012-06-10 11:44:00) 

Всем доброе утро!
Не могу сделать 2-е задачи по Delphi.
1-ая. Работа с массивами.
Размерность массива 80
Диапазон значений -40 -60
Определить среднюю длину непрерывных участков положительных чисел.

2-ая. Символьные строки и функции.
Функция переписывает все символы строки в обратном порядке.

Делаю программирование 1-ый раз. Читала мет.указания и смогла сделать первые три задания (они полегче). Эти не получаются. Примеры похожие находила - но о конца не разобралась. Если кому-то не сложно.... помогите пожалуйста.....

---

СветаНеМогуСделать   (2012-06-10 12:27:00) [41]

Задание для первой задачи: Объявить массив целых чисел и заполнить его случайными значениями. Размер массива и диапазон в варианте.
Для всех вариантов иметь ввиду что 0 считается положительным числом.

---

Ega23   (2012-06-10 12:27:00) [42]

function mirror(s: string): string;
var
i, cnt: integer;
begin
 cnt := Length(s);
 SetLength(Result, cnt);
 for i:= 1 to cnt do
   Result[i] := s[cnt - i + 1];
end;

---

sniknik   (2012-06-10 12:24:00) [43]

а вообще СветаНеМогуСделать, найди то, что умеешь и сделай это тому, кто сделает тебе в обмен задание которое ты не умеешь, а он умеет...

---

brother   (2012-06-10 12:23:00) [44]

а подумать?

---

СветаНеМогуСделать   (2012-06-10 12:22:00) [45]

А в полном законченном виде как это можно записать?

---

sniknik   (2012-06-10 12:22:00) [46]

> Размерность массива 80
> Диапазон значений -40 -60
> Определить среднюю длину непрерывных участков положительных чисел.
если перед значениями минус то средняя длинна 0 (нет участков) если тире то 80 (есть один на весь массив).

---

brother   (2012-06-10 12:11:00) [47]

function mirror(s: string): string;
var
 i: integer;
begin
 result:= '';
 for i:= High(s) downto 0 do
 result:= result + s[i];
end;

---

Страницы:   < 1 2 3 >

Наверх