Внимание! Это временный неофициальный архив старой версии форума Полигон Призраков, созданный сочувствующим форуму участником. Этот сайт просуществует лишь до тех пор, пока администрация Полигона не сдержит своё обещание и не откроет официальный архив по адресу old.sannata.org.

Полигон-2

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

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

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

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

Задачки

<<Назад  Вперед>> Страницы: 1 2 3
Печать
 
eyrope
Advanced Member


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


Ссылка


Дата регистрации на форуме:
10 апр. 2011
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 15:11
Сообщение отредактировано: 26 января 2012 15:39
Товарищи! Помогите пожалуйста! Задали на ИКТ вот такое. Нужно писать в QBasic. Я бы сам написал программы, да вот времени катастрофически не хватает. Тем более здавать завтра :frown:
http://comp-muzei.ucoz.ru/img096.jpg
Наверх
zOrg
Гость
[V] Я не робот.

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


Ссылка


Дата регистрации на форуме:
9 янв. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 16:32
Сообщение отредактировано: 26 января 2012 16:47
eyrope написал:
[q]
да вот времени катастрофически не хватает.
[/q]
Это чем же современные школьники так заняты, семью что ли тянете или на двух работах работайте :)

Помогу с первой задачей:

100 INPUT ; "Катет А" ; A
110 INPUT ; "Катет B" ; B
120 G2 = A^2 + B^2
130 G = SQR(G2)
140 PRINT , "Значение гипотенузы =" ; G
Наверх
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 :biggrin:
Наверх
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
Гость
[V] Я не робот.

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


Ссылка


Дата регистрации на форуме:
9 янв. 2009
Профиль | Сообщить модератору
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
Сейчас на форуме
Наверх
мастер бук
Advanced Member
ниспровергатель раритетов

Откуда: москва
Всего сообщений: 3806
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
6 янв. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 23:35
eyrope написал:
[q]
в 5 иду на вождение,
[/q]
а давай мы лучше за тебя на вождение сходим?
если ты водишь так же как учишь информатику-то лучше тебя на дорогу не выпускать :biggrin:
Наверх
Кай
Гость
Divine Assassin

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


Ссылка


Дата регистрации на форуме:
8 авг. 2010
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 26 января 2012 23:49
[q]
если ты водишь так же как учишь информатику-то лучше тебя на дорогу не выпускать
[/q]
я согласен с Арамисом. Т.е тьфу, с мастер бук-ом.
Наверх
zOrg
Гость
[V] Я не робот.

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


Ссылка


Дата регистрации на форуме:
9 янв. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 27 января 2012 1:36
eyrope В решении задачи 3 опечатался я, ошибка исправлена.

p.s. А язык учите пригодиться :) Вот появиться у Вас в музее, что нибудь 8-битное типа Атари, на них без знания бейсика скучно работать, разве что только игрульки запускать.
Наверх
Герман
Advanced Member
Опытный коллекционер старого софта и бет

Откуда: Кемерово
Всего сообщений: 493
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
21 июня 2010
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 27 января 2012 4:10
zOrg, если судить по вашему комменту, то везде скучно без программирования :biggrin: . Хотя вы отчасти и правы...

Doomer_, хотел бы я знать, как ЕГЭ списать. Не поделитесь опытом? :)

мастер бук, а за меня в лицей, ок? :biggrin: :biggrin: :biggrin:
Наверх
zOrg
Гость
[V] Я не робот.

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


Ссылка


Дата регистрации на форуме:
9 янв. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 27 января 2012 11:20
Герман написал:
[q]
zOrg, если судить по вашему комменту, то везде скучно без программирования
[/q]
Совсем нет, я так не считаю. Так как назвать программером себя - я нуу совсем никак не могу. Но уж если человек занимается компьютерами, то он должен хоть мало-мальски знать хотя бы один язык, даже потому что ходил в школу или ходит. А по поводу того что на Atari 8ми битных скучно без знания бейсика, дык это так и есть.
Наверх
Fe-Restorator
Гость

Ссылка

NEW! Сообщение отправлено: 27 января 2012 11:25
Сообщение отредактировано: 27 января 2012 11:28
Герман написал:
[q]
мастер бук, а за меня в лицей, ок? :biggrin: :biggrin: :biggrin:
[/q]
Эт запросто. Даже окончит его, экстерном! ;) Тока в твоей головушке знаний не прибавится. Девственно-чистые извилины, как говорится...
Иными словами - не советую подменять себя кем-то другим, ты-ж не DIP40 с биосом...
Сейчас на форуме
Наверх
Sozdatel
Advanced Member


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


Ссылка


Дата регистрации на форуме:
15 апр. 2010
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 27 января 2012 12:34
Герман написал:
[q]
Doomer_, хотел бы я знать, как ЕГЭ списать. Не поделитесь опытом?
[/q]
Ну все зависит еще и от препода. Честно сказать, сам я не списывал, разве что немного подсмотрел - просто бывают такие моменты, когжа от волнения забываешь чуть ли не таблицу умножения.

А так, слышал, некоторые в уборной с телефонов списывали. :biggrin:
Наверх
PS
Гость

Ссылка

NEW! Сообщение отправлено: 27 января 2012 21:20
Герман написал:
[q]
Doomer_, хотел бы я знать, как ЕГЭ списать. Не поделитесь опытом?
[/q]
Вредно увлекаться старыми технологиями, забывая о новых:
http://www.kp.ru/daily/25701/903412/ - так делали в прошлом году.
http://www.vesti.ru/doc.html?id=477583 - так тоже делали

А ниже - ссылки на то, как нужно (например) делать:
http://vk.com/club25706511
http://postupim.ru/
http://vk.com/eg3na100ballov
Сейчас на форуме
Наверх
zOrg
Гость
[V] Я не робот.

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


Ссылка


Дата регистрации на форуме:
9 янв. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 28 января 2012 3:18
ТАК :mad: мелочь! Извиняюсь за прямоту! Может хватит искать способы сдать ЕГЭ на халяву, а своими мозгами слабо чтоли. ЕГЭ для Вас и так халява. Вы бы попробовали один на один с принципиальным преподом выйти, особенно если у него в друзьях по жизни а не в контакте Фидель Кастро и семья. А в Рассея такие преподы есть. Сам лично к такому ходил 5 раз экзамен ходил сдавать. Засёк он меня с книгой на экзамене. Фигня в том что книга мне для моего ответа ну совсем не нужна была, она нужна была моему однокурснику распиздяю которому я её попытался передать. Благо однокурсник чесный оказался. Не сразу, но профессору доложил что он накосячил.Хотя препод не дурак сразу тему просёк, но долбал меня повторными сдачами каждые три недели всё лето. Опыт и в предмете и в общении с профессором, который я получил за то лето десять раз уже себя оправдал.
Наверх
mr r0ckers
Full Member


Откуда: Красноярск
Всего сообщений: 204
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
12 апр. 2009
Профиль | Сообщить модератору
NEW! Сообщение отправлено: 28 января 2012 7:19
Пишите олимпиаду ФизТеха и будет вам счастье :)
Наверх
<<Назад  Вперед>> Страницы: 1 2 3
Печать
Полигон-2 »   Флейм на общие темы »   Задачки
 RSS

0 посетителей просмотрели эту тему за последние 15 минут
В том числе: 0 гостей, 0 скрытых пользователей

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

Самые активные 5 тем RSS
©2001 Iezekil, ©2002–2019 Serge, ©2019 unterwulf