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

RFpro.ru: Консультации по информатике

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 294 RSS
←   Январь 2013   →
 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://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

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

Статистика

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

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 11041
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Советник
Рейтинг: 5444
∙ повысить рейтинг » 		Коцюрбенко Алексей aka Жерар
Статус: Советник
Рейтинг: 4081
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:262
Дата выхода:11.01.2013, 12:30
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:52 / 59
Вопросов / ответов:3 / 6

Консультация # 111145: Уважаемые эксперты! Где можно скачать QBasik на русском языке и самоучитель к нему? Заранее благодарен....

Консультация # 114258: Написать программу на паскале: Даны четыре точки. Определить, будут ли они вершинами параллелограмм. заранее благодарин!...
Консультация # 81722: 1) Вводятся длины 3 отрезков. Существует ли треугольник, построенный из этих отрезков? Какой это треугольник(острый, прямоугольный,тупой)? 2) Вводится текущее время(минуты,часы). Компьютер выводит градус этого угла (между стрелкой минут и часов). Сколько этот градус?...

Консультация # 111145:

Уважаемые эксперты! Где можно скачать QBasik на русском языке и самоучитель к нему? Заранее благодарен.

Дата отправки: 26.11.2007, 23:31
Вопрос задал: 7alena7
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Акимова Ирина Юрьевна:

!!!
Здравствуйте, 7alena7!
http://qbasic.narod.ru/ - здесь Вы найдете различные версии компилятора Basic (в том числе - русский QBasic), а также документацию, некоторые библиотеки, исходники программ, а также ссылки на другие Basic-сайты.

Ссылка нерабочая, стоит редирект на незанятый домен
-----
∙ Отредактировал: Alexandre V. Tchamaev (*Мастер-Эксперт)
∙ Дата редактирования: 27.11.2007, 21:55

Консультировал: Акимова Ирина Юрьевна
Дата отправки: 26.11.2007, 23:58
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Архипов Александр Леонидович:

Здравствуйте, 7alena7!
У меня есть и то и другое, если надо, то могу выслать. Правда, самоучитель мелковат - это методичка... но там почти всё есть.

Консультировал: Архипов Александр Леонидович
Дата отправки: 27.11.2007, 05:16
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 114258:

Написать программу на паскале: Даны четыре точки. Определить, будут ли они вершинами параллелограмм. заранее благодарин!

Дата отправки: 16.12.2007, 12:16
Вопрос задал: Lebron23
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Tribak (Студент):

Здравствуйте, Lebron23!
program www;
var
x1,x2,x3,x4,y1,y2,y3,y4:integer;
b,c,d:boolean;
a:array [1..6] of real;
i,j:integer;
begin
read(x1,y1);
read(x2,y2);
read(x3,y3);
read(x4,y4);
a[1]:=(y4-y3)/(x4-x3);
a[2]:=(y4-y2)/(x4-x2);
a[3]:=(y4-y1)/(x4-x1);
a[4]:=(y3-y2)/(x3-x2);
a[5]:=(y3-y1)/(x3-x1);
a[6]:=(y2-y1)/(x2-x1);
for i:=1 to 5 do
begin
for j:=i+1 to 6 do
begin
if a[j]=a[i] then begin
if not b then b:=true
else c:=true;
end;

end;
end;
if c and b then writeln(\'good\') else writeln(\'bad\');
readln;

readln;
end.

Консультировал: Tribak (Студент)
Дата отправки: 16.12.2007, 19:21
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 81722:

1) Вводятся длины 3 отрезков. Существует ли треугольник, построенный из этих отрезков? Какой это треугольник(острый, прямоугольный,тупой)?
2) Вводится текущее время(минуты,часы). Компьютер выводит градус этого угла (между стрелкой минут и часов). Сколько этот градус?

Дата отправки: 09.04.2007, 14:01
Вопрос задал: Leeryhomer
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Сухомлин Кирилл Владимирович:

Здравствуйте, Leeryhomer!
1) Для проверки на существование надо проверять неравенство треугольника.
А для выяснения типа треугольника, проверить, такое равенство:
a2 ? b2 + c2
Если "больше", то тупоугольный, если "равно", то прямоугольный, если "меньше", то остроугльный. К слову, это следует из теоремы косинусов. Естественно, в переменной a у вас должна храниться наибольшая переменная. Кстати, неравенство треугольника можно проверять тоже только для нее.
2) Количество часов делите на 12, количество минут — на 60. Получаете, какую часть оборота сделала стрелка. Берете модуль разности и умножаете на 360 (градусов в полном круге).

Консультировал: Сухомлин Кирилл Владимирович
Дата отправки: 09.04.2007, 14:19
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует fsl (Студент):

Здравствуйте, Leeryhomer!
1)
uses crt;
var a,b,c,coa,cob,coc:real;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
coa:=a*a-(b*b+c*c);
cob:=b*b-(a*a+c*c);
coc:=c*c-(b*b+a*a);
if (coa>0) or (coa>0) or (coc>0) then
writeln(\'тупоугольный\')
else
if (coa=0) or (coa=0) or (coc=0) then
writeln(\'прямоугольный\')
else
writeln(\'остроугольный\');
end
else
writeln(\'не существует\')

end.
2)
uses crt;
var h,m:integer;
gr:real;
label 1;
begin
1:readln(h,m);
if (h>24) or (h<0) then goto 1;
if (m>60) or (m<0) then goto 1;
gr:=360*(h/12+m/60);
if gr<360 then writeln(\'grad = \', gr) else writeln(\'grad = \', gr-360);
end.
Удачи!

Консультировал: fsl (Студент)
Дата отправки: 09.04.2007, 14:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Чичерин Вадим Викторович (Профессионал):

Здравствуйте, Leeryhomer!
1. Даны длины a,b,c...
Если (a+b > с) и (b+с > a) и (a + с > b) то
{Треугольник существует
Если (a*a+b*b-c*c = 0) или (a*a-b*b+c*c = 0) или (b*b-a*a+c*c = 0) то
{треугольник прямоугольный}
Если (a*a+b*b-c*c > 0) или (a*a-b*b+c*c > 0) или (b*b-a*a+c*c > 0) то
{треугольник тупоугольный}
иначе
{треугольник остроугольный}}
иначе
{треугольник не существует}

2. Дано время H, M
Если Н > 12 то
{H = H-12}
AngleH = h*30+m*0.5
AngleM = m*6
Angle = ABS(AngleH - AngleM)
Если Angle > 180 то
{Angle = 360 - Angle}

Консультировал: Чичерин Вадим Викторович (Профессионал)
Дата отправки: 09.04.2007, 16:08
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное