Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Помогите с билетами по инфе) (https://forum.antichat.xyz/showthread.php?t=209369)

because 05.06.2010 19:37
Помогите с билетами по инфе)
 
Других разделов где создать тему не нашел)Этот самый подходящий.
Нужна помощь в решении вот таких вот задач.

№1
Цитата:
Построение алгоритма (основные алгоритмические структуры) и его реализация в среде учебного исполнителя или отладка программы и получения результатов.
Сортировка чисел.Составить программу на языке программирования, осуществляющую сортировку значений трех переменных А,В,С по возрастанию.Проверить программу на тестах при разных вариантах значений исходных данных
№2
Цитата:
Построение алгоритма и реализация на изучаемом языке программирования или в среде учебного исполнителя.Демонстрация полученного алгоритма в среде учебного исполнителя или отладка программы и получение результатов.
Перераспределить значение переменных Х и Y так ,чтобы в Х оказалось меньшее из этих значений ,а в Y большее.
№3
Цитата:
Построение алгоритма для обработки величин с реализацией на языке программирования (ветвление,цикл,линейный массив или вспомогательные алгоритмы).Отладка программы,получение рузультатов.
дан массив размера N.Вывести его элементы в обратном порядке и вывести сумму всех его элементов.
№4
Цитата:
Построение алгоритма для управления учебным исполнителем (основные алгоритмические структуры).Думонстрация полученного алгоритма в среде учебного исполнителя или отладка программы и получение результатов.
Даны два целых числа.Возвести в квадрат отрицательные числа и в третью степень - положительные.(число 0 не изменять)
использовать QBasik
кто поможет отблагодарю по 70 рублей за задачу :D

Ins3t 05.06.2010 22:31
#1

Код:
input "Enter arraySize:", arraySize
DIM array(ARRAYSIZE) AS INTEGER

for i = 1 to arraySize
    input "-->", array(i)
next i

for i = 1 to arraySize
    for k = 1 to arraySize - 1
        if array(k) > array(k+1) then
            SWAP array(K), array(K + 1)
        end if
    next k
next i

for i = 1 to arraySize
    print "--->"; array(i)
next i
#2

Код:
input "Enter X:", X
input "Enter Y:", Y

if x > y then
    max = X
    min = Y
    else
    max = Y
    min = X
end if

X = min
Y = max

print "X:"; x; "Y:";y
#3

Код:
input "Enter N:", N
sum = 0
DIM array(N)
for i = 1 to N
    input "-->", array(i)
next i

while n > 0
    print array(n)
    sum = sum + array(N)
    N = N - 1
wend
print "SUM is "; sum
#4

Код:
input "Enter A:", A
input "Enter B:", B

if a < 0 then
    A = A ^ 2
    else
    A = A ^ 3
end if

if b < 0 then
    B = B ^ 2
    else
    B = B ^ 3
end if

print "A = "; a; "B = "; b
R166000694685 :)


Время: 11:42