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

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

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

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

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

Форум:
20.10.2017, 23:24

Последний вопрос:
20.10.2017, 15:13

Последний ответ:
20.10.2017, 21:45

Последняя рассылка:
21.10.2017, 00:45

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

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

Наша кнопка:

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

Отзывы о нас:
19.12.2009, 15:32 »
VeRTeX
Спасибо! Направление дано, буду копать дальше. [вопрос № 175420, ответ № 257925]
05.05.2010, 18:05 »
maura
Спасибо огромное! Вы меня выручили! [вопрос № 178182, ответ № 261198]

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

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

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

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

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 258
Вадим Исаев ака sir Henry
Статус: Старший модератор
Рейтинг: 51
mklokov
Статус: 6-й класс
Рейтинг: 23

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

Консультация онлайн # 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.14770 сек.

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