вторник, 20 мая 2008
11:48

все записи пользователя в сообществе Donor-Zla
Если ты умнее всех, кто это поймет?
[ok]

Помогите с qBasic.
Надо реализовать такую задачу на нем:
В массиве N чисел определить: номер максимального элемента среди элементов с черными номерами,сумму элементов расположенных до этого максимального элемента.Вывести исходный массив и вычисленные значения

@темы: D Grade, Программирование

URL
Комментарии
20.05.2008 в 12:21

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

ща замутю прям сюда
URL
20.05.2008 в 12:27 


cls
input "RAzmer massiva daYTE DA!? =>", n
dim a(n)

for i = 1 to n
print "a(",i,")=>" : input " ", a(i)
next i

Nmax = 2
max = a(2)
for i = 2 to n step 2
if a(i)>max then
Nmax=i
max=a(i)
next i
print "номер максимального элемента =", Nmax

sum = 0
for i = 1 to Nmax
sum = sum + a(i)
next i
print "sum=", sum

REM COPYRATE BY KERR
REM ALL RIGHTS REZERVED!!!
REM REMOVE THIS COMMENT WILL VIOLATE YOUR LICENSE AGRINIMENT!!!

URL
20.05.2008 в 12:31

Co0L
Крайне злопамятное хамло ;)
Оптимизирую код :-D

cls
input "RAzmer massiva daYTE DA!? =>", n
dim a(n)

for i = 1 to n
print "a(",i,")=>" : input " ", a(i)
next i

Nmax = 2
for i = 2 to n step 2
if a(i)>a(Nmax) then
Nmax=i
next i
print "номер максимального элемента =", Nmax

sum = 0
for i = 1 to Nmax
sum = sum + a(i)
next i
print "sum=", sum

REM COPYRATE BY KERR
REM ALL RIGHTS REZERVED!!!
REM REMOVE THIS COMMENT WILL VIOLATE YOUR LICENSE AGRINIMENT!!!
REM OPTIMIZED BY Co0L!!! xDDD
URL
20.05.2008 в 12:32

Donor-Zla
Если ты умнее всех, кто это поймет?
Спасибо!
URL
20.05.2008 в 12:35

плять, мои сносы строки съел тег PRE
URL
20.05.2008 в 12:36

Donor-Zla оно че... рабОТАЕТ?!!?!1111 О_О
URL
20.05.2008 в 12:36

Donor-Zla
Если ты умнее всех, кто это поймет?
Керр минь в аську мне код. ася в профиле
URL
20.05.2008 в 12:38

Donor-Zla
Если ты умнее всех, кто это поймет?
Керр а хер его знает) кинь код мне в аську
URL
20.05.2008 в 12:38

не это явно не ко мне а к оптимизатору :-D
URL
20.05.2008 в 13:14

techsupport
решаем проблемы с головой!
Надо сделать новую @тему "мне лень решать задачу самому, напишите всё за меня".
URL
20.05.2008 в 13:15

Enkryptor
Donor-Zla, что ты ответишь, когда учитель спросит "как работает твоя программа?"
URL
20.05.2008 в 14:29

мну не согласен с темой д-грейд :susp: все таки это программирование, примерно так же как не каждый может сочинять музыку - как и составить программку
URL
20.05.2008 в 14:44

techsupport
решаем проблемы с головой!
это D Grade в контексте темы "программирование"
URL
20.05.2008 в 16:04

Donor-Zla
Кстати, а какая у тебя специальность? На кого учишься?
URL
21.05.2008 в 00:52

Donor-Zla
Если ты умнее всех, кто это поймет?
Polarity-Inverter задача не мне. а знакомой которая учиться на управленца. а сам я сис-админ. и у меня нет времени просто это все вспоминать.
Enkryptor если бы отвечал я) конечно обьяснил.
techsupport повторюсь. я уже не помню особенностей этого языка. а вспоминать у меня нет времени.

Вот обратился сюда.
Керр Co0L а еще одну прожку легку на нем не напишите?
URL
21.05.2008 в 01:13

почему бы и нет) тока я не гарантирую даже то что оно скомпилитцо ибо пишу прямо в комментарий )))
URL
21.05.2008 в 11:13

Donor-Zla
Если ты умнее всех, кто это поймет?
Керр задача: Положение рта на лице должно показывать радость (три степени), безразличное состояние и хмурое настроение (три степени). Это высвечивается на экране и задаёмся буквами А, В, С, Д, Е, Г, С. После ввода одной из букв выбранное лицо высвечивается на весь экран.
URL
21.05.2008 в 12:21

Enkryptor
Ну, если монитор CRT, то в принципе программу можно не писать... он же отражает маленько, как зеркало...
URL
21.05.2008 в 13:12

Donor-Zla
Если ты умнее всех, кто это поймет?
Enkryptor не) у нее ЖКашка)
URL
21.05.2008 в 14:45 



cls

input "FACE CONTROL??=>", face

if face="A" then a = 1.5

if face="B" then a = 1

if face="C" then a = 0.5

if face="D" then a = 0

if face="E" then a = -0.5

if face="F" then a = -1

if face="G" then a = -1.5



cls

screen 12

circle(160, 120, 50)

cirlce(480, 120, 50)

for i = 160 to 480

x = (i-320)/50

y = -a*x*x+240

point(i,y)

next i



REM (C)OPYRATE BY KERR ALL RIGHTS REZERVED!!!

REM ANY MODIFICATION OF THIS CODE WILL VIOLATE YOUR LICENSE AGRINIMENT!!!


URL
25.05.2008 в 15:12

Donor-Zla
Если ты умнее всех, кто это поймет?
Керр а прожка то не пашит. может подкрутишь?
URL
25.05.2008 в 22:38

вспомнил
сам крути, у меня нет басика
URL