Вопрос № 166581: Здравствуйте, уважаемые эксперты! У меня к вам большая просьба. Помогите, пожалуйста, решить 2 задачи по Турбо Паскалю, а то я в нем плохо разбираюсь. 1) Вводится 15 случайных чисел в диапазоне от 1 до 30. Нужно найти сумму четных чисел и колич...
Вопрос № 166584: Здравствуйте. Подскажите пожалуста, существует ли программы-компиляторы которые переводят текст исходника C++ в текст на языке Pascal ? ...Вопрос № 166636: Выручайте!!! 1) Составьте программу вычисления минимального элемента матрицы A(M,N) и его индексов. 2)Составьте программу обмена местами вторго и четвертого элемента второго столбца матрицы B(N,N). Может у кого нибудь есть ссылка...Вопрос № 166637: Здравствуйте многоуважаемые эксперты. Огромная просьба. Нужно реализовать две програмки по файлам. При этом задачу необходимо решить дв
умя способами: 1) используя типизированный файл (f : file of record или file of integer) соответствующей ст...
Вопрос № 166.581
Здравствуйте, уважаемые эксперты! У меня к вам большая просьба. Помогите, пожалуйста, решить 2 задачи по Турбо Паскалю, а то я в нем плохо разбираюсь. 1) Вводится 15 случайных чисел в диапазоне от 1 до 30. Нужно найти сумму четных чисел и количество максимальных чисел. 2) Пользователь вводит какие-то число. Ноль является признаком конца ввода. Найти минимальное число. Найти max и количество введенных чисел.
Заранее огромное спасибо!!!
Отправлен: 06.05.2009, 02:56
Вопрос задала: Alin4ik (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Киселева Светлана Александровна
Здравствуйте, Alin4ik! Попробую Вам помочь. Тексты обеих программ в приложении. В первой программе я в цикле задавала случайные числа через такую строку: a[i]:=round(random(30))+1; random(30) генерировал числа в диапазоне от 0 включительно до 30 не включая 30, поэтому после округления до целого с помощью round (иначе, если число дробное, как его проверять на четность?), я еще добавила 1, чтобы получить числа с отрезка [1;30]. a[i] mod 2=0 - условие проверки элемента массива на четность
- если остаток от деления равен 0, то число четное. Остальное, вроде не должно вызвать затруднений. Если не понятно, попробую объяснить подоходчивей. Удачи!
Приложение:
--------- Если помочь другим в твоих силах - помоги!
Отвечает: Тимошенко Дмитрий
Здравствуйте, Коваленко С.А.!
Таких программ, насколько я осведомлен, на данный момент не существует.
Ответ отправил: Тимошенко Дмитрий (статус: 10-й класс)
Ответ отправлен: 06.05.2009, 19:12
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248742 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Бизин Михаил Анатольевич
Здравствуйте, Коваленко С.А.! Мне как-то нужно было использовать библиотеку, написанную на Си, в своей программе на Delphi. Нужен был файл с заголовками функций библиотеки. Я воспользовался программой headconv, она переводит Си-шные хедеры на паскаль. Правда, пришлось подправлять руками, но львинная доля работы была проведена автоматически. Вот ссылка: http://www.drbob42.com/tools/headconv.htm
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Дроздов Александр Михайлович! 1)
Код:
const {размерность матрицы} M = 5; N = 3;
var {матрица} a: array [1..M, 1..N] of integer;
{индексы минимального элемента, счетчики для for, минимальный элемент} min_i, min_j, i, j, min: integer;
begin
{заполняем массив и выводим} randomize; WriteLn('Исходная матрица: '); For i := 1 to M do begin for j := 1 to N do begin a[i, j] := random(50) - 25; write(a[i, j]:4); end; WriteLn; end; {началные значения} min := a[1, 1]; min_i := 1; min_j := 1; {перебираем массив} for i := 1 To M do for j := 1 to N do {ес
ли тек. элемент меньше минимального, то сохраняем его} if a[i, j] < min then begin min := a[i, j]; min_i := i; min_j := j; end; {Вывод} Write('Минимальный элемент a[', min_i, ', ', min_j, '] = ', min); ReadLn; end.
#thank 248749 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 166.637
Здравствуйте многоуважаемые эксперты. Огромная просьба. Нужно реализовать две програмки по файлам. При этом задачу необходимо решить двумя способами: 1) используя типизированный файл (f : file of record или file of integer) соответствующей структуры; 2) используя текстовый файл (f:text) соответствующей структуры. Файл содержит сведения о заработной плате сотрудников за 2 месяца. При этом такой файл содержит следующую информацию по каждому работнику: первое поле – фамилия сотрудника – 10 символов;
второе, третье поля – ежемесячная з/п (по 4 символа). Необходимо обработать следующие запросы: 1) определить троих сотрудников, получающих наибольшую зарплату; 2) определить сотрудника, получающего зарплату наиболее близкую к средней зарплате работников данного предприятия.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
