Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 598
от 10.03.2008, 15:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 251, Экспертов: 46
В номере:Вопросов: 4, Ответов: 6

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 125936: Здраствуйте эксперты! Напишите пожалуйста задачку на Паскале: Даны действительные числа s,t. Получить h(s,t)+max(h^2(s-t,st),h^4(s-t,s+t))+h(1,1) Где h(a,b)=a/1+b^2+b/1+a^2-(a-b)^3...
Вопрос № 125937: Здравствуйте! Помогите пожалуйста с данной программой. Создать модуль, который бы по формуле высчитывал объем паралелипипеда(V=sqr(a)*h), ядра(V=4*Pi*sqr(R)/3), конуса(V=1/3*Q*H; Q=Pi*sqr(R)), пирамидыV=1/3*S*H; S=sqr(a)*3 в корне/4) , цилиндра(P...
Вопрос № 126045: Дана строка, определить сколько в ней символов * ; :...
Вопрос № 126091: Здраствуйте уважаемые эксперты! У меня настоящий "завал" в учебе и поэтому очень прошу вас помочь мне с задачами по программированию(язык- Pascal)! 1)Задана последовательность N чисел. Вычислить сумму элементов массива, порядковые н...

Вопрос № 125.936
Здраствуйте эксперты! Напишите пожалуйста задачку на Паскале:
Даны действительные числа s,t. Получить h(s,t)+max(h^2(s-t,st),h^4(s-t,s+t))+h(1,1) Где h(a,b)=a/1+b^2+b/1+a^2-(a-b)^3
Отправлен: 04.03.2008, 16:20
Вопрос задал: Кельман Владимир Игоревич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Verena
Здравствуйте, Кельман Владимир Игоревич!
Во-первых, если рассматривать функцию так, как это написано у Вас, выходит деление на 1 - действие по сути бессмысленное. Предполагаю, что здесь необходимо расставить некоторые скобки. Правда, сделать это можно по-разному, я поставила их так:
h(a,b)=a/(1+b^2+b/(1+a^2-(a-b)^3))
Но Вы при необходимости легко можете поменять это в коде - ведь вычисления остаются те же, только меняется их порядок.
Функцию Н я представила в виде отдельной функции. Здесь следует обратить внимание на функцию sqr - она возвращает квадрат аргумента (соответственно, чтобы получить x^3 можно посчитать sqr(x)*x, a x^4 = sqr(x)*sqr(x)). Вообще, любую степень числа можно вычислить через комбинацию функций exp и ln, но в данном случае это неоправданно. Смотрите код в приложении.

Приложение:

---------
Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент)
Ответ отправлен: 04.03.2008, 17:09
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо Вам Verena


Вопрос № 125.937
Здравствуйте! Помогите пожалуйста с данной программой.
Создать модуль, который бы по формуле высчитывал объем паралелипипеда(V=sqr(a)*h), ядра(V=4*Pi*sqr(R)/3), конуса(V=1/3*Q*H; Q=Pi*sqr(R)), пирамидыV=1/3*S*H; S=sqr(a)*3 в корне/4) , цилиндра(Pi*sqr(R)*H). Т.е. как бы сначало нужно создать модуль в котором будут описываться функции, по моему 5, а потом уже и саму программу используя этот модуль. Пока вот с созданием этого модулем и есть проблема.
Заранее спасибо.
Отправлен: 04.03.2008, 16:29
Вопрос задал: bellick (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Verena
Здравствуйте, bellick!
В создании модулей нет ничего сложного. Файл модуля просто должен строиться по определённой структуре, а именно:

unit имя_модуля {Должно совпадать с именем файла}
interface {Ключевое слово, помечающее область описания процедур, функций, типов, констант, переменных, которые будут доступны при подключении модуля к сторонней программе}
......... {Само описание}
implementation {Ключевое слово, помечающее исполнительную часть модуля}
..... {Реализация процедур/функций, описание процедур/функций, переменных, констант, типов, не видимых за пределами модуля}
begin {тело модуля (необязательное место, где можно написать что-то, что будет выполняться всегда при подключении модуля, это слово можно пропустить}
...
end. {Обязательное окончание файла модуля}

Для создания tpu-файла необходимо сделать make pas-файла модуля с опцией создания exe-шника. Для подключения модуля к программе надо написать uses имя_модуля в начале программы.
Ваш пример в приложении.

Приложение:

---------
Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент)
Ответ отправлен: 04.03.2008, 18:23


Вопрос № 126.045
Дана строка, определить сколько в ней символов * ; :
Отправлен: 05.03.2008, 08:31
Вопрос задал: Trane (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Trane!
Задача очень легкая, такие нужно делать самостоятельно.
Решение в приложении.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс)
Ответ отправлен: 05.03.2008, 09:52

Отвечает: Попов Владимир Иванович
!!!
Здравствуйте, Trane!
Довольно простая задачка. Вводим строку. Определяем её длину. Организовываем цикл по символам, подсчитывая число совпадений с заданным сиволом через условный оператор. Выводим результат. Исходник в приложении. Удачи.

Программа считает только количество *. Спрашивалось также количество символов ; и :
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал)
∙ Дата редактирования: 05.03.2008, 21:02

Приложение:

---------
Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 3-ий класс)
Ответ отправлен: 05.03.2008, 20:22


Вопрос № 126.091
Здраствуйте уважаемые эксперты!
У меня настоящий "завал" в учебе и поэтому очень прошу вас помочь мне с задачами по программированию(язык- Pascal)!
1)Задана последовательность N чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.
2)Для целочисленной квадратной матрицы найти число элементов,кратных k,и наибольших из них.
3)Заданы имена девочек. Определить какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.
4)В строке удалить символ "двоеточие" (:) и подсчитать количество удаленных символов.
Заранее БОЛЬШОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!
Отправлен: 05.03.2008, 13:39
Вопрос задала: Нуруллина Светлана Азатовна (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Нуруллина Светлана Азатовна!
Задачи №1,2,4 в приложении. Задача №3 на множества, очень легкая, как и все, а писанины много.

Приложение:

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс)
Ответ отправлен: 05.03.2008, 16:14

Отвечает: Попов Владимир Иванович
Здравствуйте, Нуруллина Светлана Азатовна!
Успеваю только с первой задачкой. Исходник в приложении. Проверен. Работает.

Приложение:

---------
Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 3-ий класс)
Ответ отправлен: 05.03.2008, 21:30


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

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

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.72.2 от 06.03.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное