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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Январь 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

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

Выпуск № 534
от 02.01.2008, 00:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 251, Экспертов: 44
В номере:Вопросов: 6, Ответов: 9
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 116108: Помогите, пожалуйста! Как нарисовать треугольник в графическом редакторе, при помощи процедуры, если даны длины трёх сторон треугольника....
Вопрос № 116124: Здравствуйте, Уважаемые! Помогите, пожалуйста, вот с этой функцией, что-то я с ней застряла. Здесь надо найти наибольшее число в цепочке двойных слов со знаком, короче, когда я ввожу отрицательные числа, программа работает не правильно, помогите,...
Вопрос № 116138: Здравствуйте, Уважаемые эксперты. Помогите написать программку, которая формирует базу данных с полями (Фамилия, Имя, Отчество, Дата рождения и Место жительства). Должны выполняться следующие функции: добавление записи, редактирование и удаление запи...
Вопрос № 116166: Помогите срочно) Даны действительные числа а(1)....а(50). Они определяют 25 интервалов числовой оси[a(1),a(2)] ...[a(49),a(50)] Имеют ли все данные интервалы общие точки? Если да то указать какую-нибудь из этих точек....
Вопрос № 116233: Здравствуйте,помогите пожалуйста: В даной действительной таблице m на n (n>=3,m>=3) поменять местами а)строки с номером 2 и n-1 б)столбці с номером 3 и n-2...
Вопрос № 116237: помогите пожалуйста : как создать треугольник Паскаля а то чот ничо не получаеться......

Вопрос № 116.108
Помогите, пожалуйста!
Как нарисовать треугольник в графическом редакторе, при помощи процедуры, если даны длины трёх сторон треугольника.
Отправлен: 26.12.2007, 23:37
Вопрос задала: Byzly (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Boriss
Здравствуйте, Byzly!
С помощью теоремы косинусов легко определить угол между сторонами:
a2 = b2 + c2 - 2bc cos(α);
cos(α) = (b2 + c2 - a2)/(2bc)
Сумеете реализовать?
---------
Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 27.12.2007, 10:12
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо!

Вопрос № 116.124
Здравствуйте, Уважаемые!
Помогите, пожалуйста, вот с этой функцией, что-то я с ней застряла. Здесь надо найти наибольшее число в цепочке двойных слов со знаком, короче, когда я ввожу отрицательные числа, программа работает не правильно, помогите, ПОЖАЛУЙСТА, исправить:

Приложение:

Отправлен: 27.12.2007, 02:12
Вопрос задала: Krista (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Boriss
Здравствуйте, Krista!
Ну, во-первых, явно не та рассылка - нужно во FreePascal
Во-вторых, лучше сделать так:
max:=1;
for i:=1 to 3 do begin
readln( a[i] );
if a[max] < a[i] then max:=i;
end;
writeln( 'Œ ªá¨¬ «ì­ë© í«¥¬¥­â ¬ áᨢ = ', a[max] );
---------
Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 27.12.2007, 10:02
Оценка за ответ: 5
Комментарий оценки:
Спасибочки!:-)
Отвечает: Rumata
Здравствуйте, Krista!

Не работает, так как Вы задаете начальное значение max положительным числом 1. Лучше использовать для инициализации первое значение массива, а цикл запускать со следующего значения
max:=a[1];
for i:=2 to 3 do begin
Ответ отправил: Rumata (статус: 1-ый класс)
Ответ отправлен: 27.12.2007, 11:33
Оценка за ответ: 5

Вопрос № 116.138
Здравствуйте, Уважаемые эксперты. Помогите написать программку, которая формирует базу данных с полями (Фамилия, Имя, Отчество, Дата рождения и Место жительства). Должны выполняться следующие функции: добавление записи, редактирование и удаление записи (должны быть связанны через поиск в БД). И еще чтоб эти функции выполнялись через меню. Заранее спасибо!
Отправлен: 27.12.2007, 08:42
Вопрос задал: Orz (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Овчинников Николай Владиславович
Здравствуйте, Orz!
Программа здесь www.eLacerta.narod.ru
Называется BD сруза на главной странице.
Не судите за поиск лень писать, поэтому поиск медленный и по дате рождения не ищет, ну если надо, то пишите, допишу.
Ответ отправил: Овчинников Николай Владиславович (статус: 1-ый класс)
Ответ отправлен: 27.12.2007, 09:56
Оценка за ответ: 3
Комментарий оценки:
Извините, но мне нужна программа написанная на Паскале, а не на Делфи!

Вопрос № 116.166
Помогите срочно)
Даны действительные числа а(1)....а(50). Они определяют 25 интервалов числовой оси[a(1),a(2)] ...[a(49),a(50)] Имеют ли все данные интервалы общие точки? Если да то указать какую-нибудь из этих точек.
Отправлен: 27.12.2007, 13:12
Вопрос задал: Kladopoisk (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Kladopoisk!

Смотрите приложение!
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 31.12.2007, 16:40

Вопрос № 116.233
Здравствуйте,помогите пожалуйста:
В даной действительной таблице m на n (n>=3,m>=3) поменять местами
а)строки с номером 2 и n-1
б)столбці с номером 3 и n-2
Отправлен: 27.12.2007, 21:21
Вопрос задал: Петренко Игор Максимович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Н.В.
Здравствуйте, Петренко Игор Максимович!
Идея такая: проходите циклом for строку 2 массива и функцией меняете значение ячейки в этой строке со значением в строке n-1.
Потом аналогично, но для столбца.
Думаю, проблем в реализации не возникнет.
Удачи!
Ответ отправил: Н.В. (статус: Студент)
Ответ отправлен: 27.12.2007, 21:33
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Петренко Игор Максимович!

Смотрите приложение.
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 28.12.2007, 16:24

Вопрос № 116.237
помогите пожалуйста : как создать треугольник Паскаля
а то чот ничо не получаеться...
Отправлен: 27.12.2007, 22:20
Вопрос задал: Петренко Игор Максимович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Петренко Игор Максимович!

В приложении программа создающая прямоугольный треугольник Паскаля.
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 28.12.2007, 16:22
Отвечает: Gh0stik
Здравствуйте, Петренко Игор Максимович!

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

const n=15; {количество строк в треугольнике}
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
  a[1,1]:=1; a[2,1]:=1; a[2,2]:=1;
  {заполняем массив данными}
  for i:=3 to n do  for j:=1 to i do
      if (j=1) or (j=i) then a[i,j]:=1
          else a[i,j]:=a[i-1,j-1] + a[i-1,j];
  {выводим треугольник на экран}
  for i:=1 to n do
  begin
    for j:=1 to i do write(a[i,j]:5);
    writeln;
  end;
  readln;
end.

Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
WWW: http://gh0stik.rusfaq.ru/
ICQ: 289363162
----
Ответ отправлен: 28.12.2007, 16:47

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

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

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

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

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


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

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