29.01.2020, 21:29 [+3 UTC]
в нашей команде: 4 178 чел. | участники онлайн: 5 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.80 (15.01.2020)
JS-v.1.35 | CSS-v.3.36

Общие новости:
06.01.2020, 22:45

Форум:
13.01.2020, 16:40

Последний вопрос:
29.01.2020, 19:14
Всего: 151494

Последний ответ:
28.01.2020, 15:55
Всего: 259692

Последняя рассылка:
29.01.2020, 13:45

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

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

Наша кнопка:

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

Отзывы о нас:
01.12.2011, 20:47 »
Миронычев Виталий
Уважаемый,Андрей Владимирович! Очень все понравилось,грамотный ход рассуждений Но консультация ровно на 50% выполнена В задании присутствует еще и вторая система [вопрос № 184618, ответ № 269008]
01.02.2010, 12:15 »
lamed
Спасибо! Сам потратил параллельно около 4х часов, но нашел тольку самоучитель [вопрос № 176427, ответ № 259118]

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

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

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

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

Gluck
Статус: Студент
Рейтинг: 334
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 173
puporev
Статус: Профессор
Рейтинг: 138

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

Консультация онлайн # 144937
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Polmer12
Отправлена: 24.09.2008, 21:22
Поступило ответов: 1

Здравствуйте! Помогите пожалуйста решить следующие задачи:

Написать программу вычисления стоимости некоторого количества (по весу) яблок.

Даны три действительных числа. Утроить те из них, значения которых неотрицательны, и возвести в четвертую степень – отрицательные.

Дана произвольная последовательность целых чисел. Найти произведение положительных четных чисел данной последовательности.

Найти самую большую цифру целого числа.

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М.

Вычислить сумму и количество положительных элементов массива расположенных в четных строках.

Выясните, сколько раз в предложенном тексте встречается каждое трехбуквенное слово.

Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости.

Построить массив записей о рабочих завода. Каждая запись содержит поля – фамилия рабочего, наименование цеха, размер заработной платы за месяц. Рассчитать для каждого рабочего размер отпускных из расчета зар.плата*0.75.

Спасибо!

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

Ответ # 230239 от puporev (Профессор)

Здравствуйте, Polmer12!
Решение задач №№ 4,6,7,8,9 с пояснениями в приложении.
По задаче №7. Поскольку мы не знаем формат текста, который будет введен, предусмотрим форматирование его к удобному для поиска виду, а именно представим текст как чередование слов и одиночных пробелов(начинается строка словом, заканчивается пробелом).

Приложение:


Консультировал: puporev (Профессор)
Дата отправки: 25.09.2008, 08:14

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

0

[подробно]

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

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

Мини-форум консультации № 144937
Ualife

# 1

= общий = | 24.09.2008, 23:07

program e1;
var a,b:real;
begin
write('Цена за килограмм: ');
readln(a);
write('Вес: ');
readln(b);
write('Общая стоимость: ', a*b:3:2);
readln;
end.

program e2;
var a,b,c:real;
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
write('c: ');
readln(c);
if a=0 then writeln('Число a равняется нулю') else if a>0 then writeln(a*a*a) else writeln(a*a*a*a);
if b=0 then writeln('Число b равняется нулю') else if b>0 then writeln(a*a*a) else writeln(a*a*a*a);
if c=0 then writeln('Число c равняется нулю') else if c>0 then writeln(a*a*a) else writeln(a*a*a*a);
readln
end.

 

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

Яндекс Rambler's Top100

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

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

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.80 от 15.01.2020
Версия JS: 1.35 | Версия CSS: 3.36