Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / 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-ый раз. Читала мет.указания и смогла сделать первые три задания (они полегче). Эти не получаются. Примеры похожие находила - но о конца не разобралась. Если кому-то не сложно.... помогите пожалуйста.....

Dennis I. Komarov (2012-06-10 13:57:00) [21]
[13] уже сделала?

Dennis I. Komarov (2012-06-10 13:57:00) [22]

> Определить среднюю длину непрерывных участков положительных
> чисел.

+

> А про ноль - так написано в задании к работе.
> Т.е. это не моя придумка а преподавателя.

=
Определить среднюю длину непрерывных участков не отрицательных чисел.

Inovet (2012-06-10 13:50:00) [23]
> [21] СветаНеМогуСделать © (10.06.12 13:30)
> Не могу понять визуально...

Массив - это коробочки расположенные для наглядности на прямой, каждой присвоен порядковый номер без пропусков пусть от 0 до 79. В коробочках лежат бумажки, на которых записаны числа от -40 до 60 (если я правильно понял задание).

Идём от 0-й коробочки по каждой до 79. Смотрим число на бумажке и делаем пометки на листочке. если стоит отметка "мы в положительном участке" = истина и текущее число положительное - увеличиваем счётчик количества положительных чисел, если "мы в положительном участке" = истина и текущее число отрицательное - увеличиваем счётчик положительных участков, если текущее число отрицательное - ставим отметку "мы в положительном участке" в ложь.

По завершинии цикла подсчитываем среднюю длину = количество положительных чисел / количество положительных участков.

Вроде так.

СветаНеМогуСделать (2012-06-10 13:48:00) [24]
С диапазоном я тоже приблизительно разобралась.
Но не разобралась про среднюю длину...

СветаНеМогуСделать (2012-06-10 13:37:00) [25]
var
A :string;
I,II,L :Integer;
Buf :Char;
Tmp :string;

begin
Readln(A);
Tmp := A;
L := Length(Tmp);
II := L div 2;
for I := 1 to II do
begin
Buf := Tmp[I];
Tmp[I] := Tmp[L - I + 1];
Tmp[L - I + 1] := Buf;
end;
Writeln(Tmp);
Readln;
end.

Смотрите. Все работает!!!!!

Sha (2012-06-10 13:35:00) [26]
>> как отлаживал?

>в окне браузера)

браузер не той системы

СветаНеМогуСделать (2012-06-10 13:30:00) [27]
Про массивы я не понимаю задание.
Что за странный диапазон?
И как обозначить среднюю длину непрерывных участков положительных чисел.
Не могу понять визуально...

Dennis I. Komarov (2012-06-10 13:24:00) [28]

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

Так и пытаюсь... сделать за <> помочь
А ты не желаешь даже пошевелить извилинами

З.Ы

> Я - менеджер.

МЕНЕДЖЕР (от англ. manage — управлять) — специалист по управлению производством и обращением товаров, наемный управляющий. Менеджеры организуют работу на фирме, руководят производственной деятельностью групп сотрудников фирмы. Менеджер является должностным лицом фирмы, компании, в которой он работает, и входит в средний и высший руководящий состав фирм.

Боллбастерша (2012-06-10 13:23:00) [29]

> [D7]
> Не могу сделать 2-е задачи по Delphi.
> 2-ая. Символьные строки и функции.
> Функция переписывает все символы строки в обратном порядке.

uses StrUtils;
s := ReverseString(s);

brother (2012-06-10 13:21:00) [30]
> как отлаживал?

в окне браузера)

Inovet (2012-06-10 13:14:00) [31]
> [13] Dennis I. Komarov © (10.06.12 13:00)
> Что не умеешь?

Если эти пункты не умеет, то вместо
> [9] СветаНеМогуСделать © (10.06.12 12:55)
> мне помочь или объяснить что нибудь

а "сделать за меня всё".

СветаНеМогуСделать (2012-06-10 13:11:00) [32]
Я - менеджер. Проходила С++ 7 лет назад. Уже ничего не помню.
Сдать нужно в понедельник.
Если вы все такие умные, то помогите, а не комментируйте. Не тратьте время впустую.
Ega23 и brother спасибо за помощь!!

Anatoly Podgoretsky (2012-06-10 13:06:00) [33]
Образование: высшее

Sha (2012-06-10 13:03:00) [34]
> brother © (10.06.12 12:11) [1]

как отлаживал?

Dennis I. Komarov (2012-06-10 13:00:00) [35]

> Нет, не лень. А неумение.

Что не умеешь?

1. Объявить массив целых чисел
2. и заполнить его случайными значениями.

Inovet (2012-06-10 12:58:00) [36]
> [11] Inovet © (10.06.12 12:56)

А, ты же не в неё саму, тогда не надо делить.

Inovet (2012-06-10 12:56:00) [37]
> [6] Ega23 © (10.06.12 12:27)
> for i:= 1 to cnt do

а разделить на 2

СветаНеМогуСделать (2012-06-10 12:56:00) [38]
А про ноль - так написано в задании к работе.
Т.е. это не моя придумка а преподавателя.

СветаНеМогуСделать (2012-06-10 12:55:00) [39]
Нет, не лень. А неумение.
Я прошу о помощи в очень крайних ситуациях.
2 дня делала 3 задания. Но они по сравнению с этим очень простые.
Если реально кто-то может мне помочь или объяснить что нибудь - буду благодарна.
И я уже сказала что делаю первый раз.

Dennis I. Komarov (2012-06-10 12:49:00) [40]

> СветаНеМогуСделать © (10.06.12 12:27) [7]

Так что не получается? Лень обуяла?

З.Ы.

> Для всех вариантов иметь ввиду что 0 считается положительным
> числом.

Целый "0" он не положительный и не отрицательный. Он "0"...

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

Наверх

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