30.05.2017, 00:02 [+3 UTC]
в нашей команде: 1 987 чел. | участники онлайн: 3 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
29.05.2017, 18:14

Последний вопрос:
29.05.2017, 21:26

Последний ответ:
29.05.2017, 09:18

Последняя рассылка:
29.05.2017, 18:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
26.04.2010, 09:49 »
Botsman
Естественно, это оценка ответа эксперта Ulitka71, который, к сожалению, разместил его в мини-форуме вопроса, лишив меня возможности поблагодарить его лично. Тем не менее, спасибо ему огромное - за ответ, а также спасибо модераторам и порталу за то, что они есть и делают хорошее дело! [вопрос № 177864, ответ № 261032]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 131
mklokov
Статус: 5-й класс
Рейтинг: 104
Ксюша
Статус: 1-й класс
Рейтинг: 2

Перейти к консультации №:
 

Консультация онлайн # 137655
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Львов Алексей Владимирович
Отправлена: 20.05.2008, 19:48
Поступило ответов: 2

Уважаемые эксперты помоги написать программки.
Цикл.
Одноклеточная амеба каждые 3 часа делиться на 2 клетки. Определить, сколько клеток будет через 3,6,9,12, …24 часа.
Двумерный массив.
Сформулировать квадратную матрицу 7х7 по заданному образцу
1*2 0 0 0 0 0
0 2*3 0 0 0 0
0 0 3*4 0 0 0
0 0 0 4*5 0 0
0 0 0 0 5*6 0
0 0 0 0 0 6*7
Строки.
Строка содержит произвольный русский текст. Определить каких букв в нем больше: гласных или согласных.
Подпрограмма.
Дан одномерный массив, выполнить следующие действия:
Создать массив четных чисел массива, если таких чисел нет, то вывести сообшение об этом.
Указать наибольшую длину числовой оси, содержащую все элементы массива.
Заменить все элементы массива, больше заданного Z, этим числом, подсчитать количество замен.
Определить количество элементов массива, расположенных пред первым нулевым элементом.

Состояние: Консультация закрыта

Здравствуйте, Львов Алексей Владимирович !

Первые две задачи в приложении.
Удачи!

Приложение:


Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 20.05.2008, 22:44

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 224311 от Пупорев Юрий Борисович

Здравствуйте, Львов Алексей Владимирович !
По задаче 4.
Поскольку подпрограммы используются один раз и только для решения конкретного массива, все переменные объявляем как глобальные, а процедуры и функции оформляем без формальных параметров. Код с пояснениями в приложении.
Задача 3 очень простая, но лень писать.Порядок такой:
Uses crt;
Const gl=['А','а',...все гласные большие и маленькие];
Sgl=['Б','б',...все согласные];
Var s:string;
I,kgl,ksgl:integer;
Begin
Clrscr;
Write('s: ');readln(s);
Kgl:=0;ksgl:=0;
For i:=1 to length(s) do
Begin
If s[i] in gl then
Begin
Kgl:=kgl+1;
End
Else if s[i] in sgl then
Begin
Ksgl:=ksgl+1;
End;
End;
If kgl>ksgl then writeln('glasnyh bolshe!')
Else If ksgl>kgl then writeln('soglasnyh bolshe!')
Else writeln(Porovnu!);
Readln
End.

Приложение:


Консультировал: Пупорев Юрий Борисович
Дата отправки: 21.05.2008, 10:33

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.12836 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн