Задачки :: Флейм на общие темы

Объявление форума

Если пользуетесь личными сообщениями и получили по электронной почте оповещение о новом письме, не отвечайте, пожалуйста, почтой. Зайдите на форум и ответьте отправителю через ЛС.

Полигон-2 » Флейм на общие темы » Задачки

Задачки

<<Назад Вперед>>

Страницы: 1 * 2 3

Печать

SKcorp Advanced Member Эксперт. Откуда: Leningrad, USSR Всего сообщений: 3005 Рейтинг пользователя: 0 Ссылка Дата регистрации на форуме: 28 июля 2008	Профиль \| Сообщить модератору NEW! Сообщение отправлено: 26 января 2012 16:42 ОШИБКА 2 В СТРОКЕ 110
	Наверх

Кай

Гость
Divine Assassin

Откуда: извне (from beyond)
Всего сообщений: 13709
Рейтинг пользователя: 0

Ссылка

Дата регистрации на форуме:
8 авг. 2010

Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 16:43
Сообщение отредактировано: 26 января 2012 16:48

Лень-матушка вперёд них родилась.

4-я задача. Для остроты - на паскале. Адаптируйте на BASIC сами.



program Treug;

uses crt;

var

   x,y:array[1..3] of integer;

   a,b,c,p,s:real;

   i:integer;

begin

 clrscr;

 for i:=1 to 3 do

  begin

   write('x',i,'=');readln(x[i]<img src="smiles/wink.gif" align=absmiddle alt=";)">;

   write('y',i,'=');readln(y[i]<img src="smiles/wink.gif" align=absmiddle alt=";)">;

  end;

 a:=sqrt(sqr(x[2]-x[1]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[2]-y[1]<img src="smiles/wink.gif" align=absmiddle alt=";)">);

 b:=sqrt(sqr(x[3]-x[2]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[3]-y[2]<img src="smiles/wink.gif" align=absmiddle alt=";)">);

 c:=sqrt(sqr(x[1]-x[3]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[1]-y[3]<img src="smiles/wink.gif" align=absmiddle alt=";)">);

 if a+b>c then

  begin

   p:=a+b+c;

   writeln('Периметр треугольника: ',p:4:2,' см');

   p:=p/2;

   s:=sqrt(p*(p-a)*(p-b)*(p-c));

   writeln('Площадь треугольника: ',s:4:2,' см^2');

  end

 else

  writeln('Такой треугольник не существует!');

end.

Наверх

zOrg Гость [V] Я не робот. Откуда: Ленинградская область, пгт. Сиверский Всего сообщений: 5124 Рейтинг пользователя: 0 Ссылка Дата регистрации на форуме: 9 янв. 2009	Профиль \| Сообщить модератору NEW! Сообщение отправлено: 26 января 2012 16:47 SKcorp Поправил, безумный Punto Switcher
	Наверх

eyrope

Advanced Member

Всего сообщений: 409
Рейтинг пользователя: 0

Ссылка

Дата регистрации на форуме:
10 апр. 2011

Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 16:52
Сообщение отредактировано: 26 января 2012 16:53

Кай написал:

[q]
Лень-матушка вперёд них родилась.
[/q]

Никакая не лень. Прихожу со школы в 4, в 5 иду на вождение, в 7.30 домой...
На уроки времени не хватает
А мне еще и к экзаменам готовится надо.

zOrg, спасибо большое!

Наверх

zOrg

Гость
[V] Я не робот.

Откуда: Ленинградская область, пгт. Сиверский
Всего сообщений: 5124
Рейтинг пользователя: 0

Ссылка

Дата регистрации на форуме:
9 янв. 2009

Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 19:34
Сообщение отредактировано: 26 января 2012 19:35

eyrope Пожалуйста!

Задача №6

CLS
SCREEN 0
DIM A AS STRING
INPUT "Год рождения" ; A

X=1

FOR I=10 TO 16 STEP 2
LOCATE I, 40
PRINT MID$(A, X, 1)
X=X+1
NEXT

Рамочку если нужно, то уже сами как нибудь

Наверх

Sozdatel

Advanced Member

Всего сообщений: 3518
Рейтинг пользователя: 0

Ссылка

Дата регистрации на форуме:
15 апр. 2010

Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 20:41

eyrope написал:

[q]
А мне еще и к экзаменам готовится надо.
[/q]

Экзамены это ерунда (во всяком случае ЕГЭ) - там списать ничего не стоит. Так что можно особо не волноваться.

Наверх

zOrg

Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 20:44
Сообщение отредактировано: 27 января 2012 1:24

Задача №3

CLS

INPUT "Основание малое" ; A
INPUT "Основание большое" ; B
INPUT "Угол при большем основании" ; C

KATET1=(B-A)/2
KATET2=KATET1*TAN[C] здесь скобки круглые
VISOTA=KATET2

PRINT "VISOTA" ; VISOTA

S=((A+B)/2)*VISOTA

PRINT "Площадь трапеции" ; S

Наверх

eyrope Advanced Member Всего сообщений: 409 Рейтинг пользователя: 0 Ссылка Дата регистрации на форуме: 10 апр. 2011	Профиль \| Сообщить модератору NEW! Сообщение отправлено: 26 января 2012 20:48 Спасибо огромное! Больше не нужно.
	Наверх

Sozdatel Advanced Member Всего сообщений: 3518 Рейтинг пользователя: 0 Ссылка Дата регистрации на форуме: 15 апр. 2010	Профиль \| Сообщить модератору NEW! Сообщение отправлено: 26 января 2012 21:00 Могу решить задачу 5, но на Паскале, т.к язык Basic знаю не очень, придется вспоминать синтаксис языка. Пойдет ?
	Наверх

Fe-Restorator Гость Ссылка	NEW! Сообщение отправлено: 26 января 2012 21:06 Сообщение отредактировано: 26 января 2012 21:19
Сейчас на форуме	Наверх

<<Назад Вперед>>

Страницы: 1 * 2 3

Печать

Полигон-2 » Флейм на общие темы » Задачки

1 посетитель просмотрел эту тему за последние 15 минут

В том числе: 1 гость, 0 скрытых пользователей

Последние
[Москва] LIQUID-Акция. Сливаются разъемы CF МС7004 и 7004А на AT и XT Пайка термотрубок Проммать s478 PEAK 715VL2-HT ( Full-Size SBC) Подскажите по 386 материке по джамперам.

Самые активные 5 тем

Полигон-2

Форум о старых компьютерах

Полигон-2 » Флейм на общие темы » Задачки

Задачки

Полигон-2 » Флейм на общие темы » Задачки