+ Ответить в теме
Показано с 1 по 2 из 2

Тема: помогите решить задачки по бейсику пожалуйста!!!!

  1. #1
    Юзер mishutka кто это?
    Регистрация
    04.03.2010
    Возраст
    32
    Сообщений
    93
    Поблагодарил(а)
    8
    Получено благодарностей: 6 (сообщений: 5).

    По умолчанию помогите решить задачки по бейсику пожалуйста!!!!

    1)Ввести матрицу А размером 4х4
    2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
    3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
    4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
    5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.

    Добавлено через 1 час 33 минуты
    Часть я уже сделал, а вот как дальше не знаю

    CLS
    REM 1
    DIM A(4, 4)
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    A(I, J) = INT(RND * 100)
    NEXT J
    NEXT I
    PRINT "MASSIV A"
    FOR I = 1 TO 4
    FOR J = 1 TO 4
    PRINT A(I, J);
    NEXT J
    PRINT
    NEXT I
    Последний раз редактировалось mishutka; 11.05.2011 в 19:20. Причина: Добавлено сообщение

  2. #2
    Мастер Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Papa-Bear Закрылки на взлет Аватар для Papa-Bear
    Регистрация
    26.09.2005
    Возраст
    41
    Сообщений
    888
    Поблагодарил(а)
    146
    Получено благодарностей: 505 (сообщений: 270).

    По умолчанию

    Код:
    CLS
    n = 4
    b = INT(RND * 50)
    DIM y(n * n)
    PRINT "Matrix A"
    FOR j = 0 TO n - 1
    FOR i = 0 TO n - 1
    a(j, i) = INT(RND * 99) + 1
    IF a(j, i) > b THEN y(cnt) = a(j, i): cnt = cnt + 1
    PRINT USING "###"; a(j, i);
    NEXT i
    PRINT
    
    FOR k = j + 1 TO n - 1
    s = s + a(j, k)
    NEXT k
    NEXT j
    
    PRINT "S="; s
    PRINT "B="; b
    
    PRINT "Sorted matrix A"
    FOR i = 0 TO n - 1
    FOR j = 0 TO n - 1
    FOR k = j + 1 TO n - 1
    IF a(j, i) > a(k, i) THEN SWAP a(k, i), a(j, i)
    NEXT k
    NEXT j
    NEXT i
    
    FOR j = 0 TO n - 1
    FOR i = 0 TO n - 1
    PRINT USING "###"; a(j, i);
    NEXT i
    PRINT
    NEXT j
    PRINT "Y array:";
    FOR i = 0 TO n * n - 1
    IF y(i) > 0 THEN PRINT y(i); " ";
    NEXT i
    ... прям как в детство вернулся в школу №41.
    Интересно, сколько еще сотен лет в школах этот убогий язык будут учить?
    ...а вы еще говорите, что Сталин сволочь.

+ Ответить в теме

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. Срочно помогите решить задачи!!!!!!!!!
    от Firma4 в разделе Обсуждение вопросов "Образования и Работы"
    Ответов: 30
    Последнее сообщение: 10.05.2011, 22:40
  2. помогите решить задачу!
    от Наташа_18 в разделе Языки
    Ответов: 5
    Последнее сообщение: 01.11.2010, 20:22
  3. помогите решить задачу
    от олеся благодарная в разделе Delphi/Pascal
    Ответов: 0
    Последнее сообщение: 28.04.2010, 15:27
  4. помогите решить 2-е задачи
    от x9aos3 в разделе Delphi/Pascal
    Ответов: 8
    Последнее сообщение: 30.12.2009, 16:36
  5. ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!!!
    от Firma4 в разделе Языки
    Ответов: 2
    Последнее сообщение: 30.05.2009, 14:19

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.