Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
Just Do it...

В исходной строке определить и вывести слова, перед которыми стоят младшие по алфавиту слова

24.05.2011, 17:30. Показов 1468. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Очень прошу вас ребята , помоч мне . Препод дал мне 2 задачки , которые я вообще не понимаю, пройдя 5=х знакомых учителей они тоже не знают что делать . Очень прошу помоч, вопрос стоит в том , попаду ли я на экзамен или нет .


1) В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова

________________________________________ ________________________________________ ___________

2)Данна Матрица целых чисел X(n,m).Вычесть поэлементно из каждой строки,кроме i-ой , j-УЮ строку.
Вывести исходную и полученные матрицы.Значения буквенных переменных задавать с клавиатуры
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.05.2011, 17:30
Ответы с готовыми решениями:

В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова
Задача 1. В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова. Задача 2. Определить,...

В исходной строке a$ определить и вывести слова, перед которыми стоят меньшие по длине слова.
В исходной строке a$ определить и вывести слова, перед которыми стоят меньшие по длине слова.

Вывести слова, перед которыми стоят меньше по длине слова
Большая просьба: помогите решить задачу!!! Она в прикреплённом файле! Заранее СПАСИБО!

5
63 / 63 / 57
Регистрация: 15.05.2011
Сообщений: 109
24.05.2011, 18:18
2)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
CLS
INPUT N, M
INPUT I, J
DIM X(N, M)
RANDOMIZE TIMER
PRINT "ISXOD: "
FOR Q = 1 TO N
        FOR W = 1 TO M
                X(Q, W) = INT(RND * 100)
                PRINT X(Q, W);
        NEXT W
        PRINT ""
NEXT Q
 
PRINT ""
PRINT "POLYCH: "
 
FOR Q = 1 TO N
 
        IF Q = I THEN
                FOR W = 1 TO M
                        PRINT X(Q, W);
                NEXT W
                END IF
        IF Q = J THEN
                FOR W = 1 TO M
                        PRINT 0;
                NEXT W
                END IF
 
       IF Q <> I AND Q <> J THEN
                FOR W = 1 TO M
                        X(Q, W) = X(Q, W) - X(J, W)
                        PRINT X(Q, W);
                NEXT W
        END IF
        PRINT ""
NEXT Q
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
24.05.2011, 18:54
как-то сложно... а если вот так:
2)Дана Матрица целых чисел X(n,m).Вычесть поэлементно из каждой строки,кроме i-ой , j-УЮ строку.
Вывести исходную и полученные матрицы.Значения буквенных переменных задавать с клавиатуры
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
INPUT "kolichestvo strok=", n
INPUT "kolichestvo stolbcov=", m
DIM x(n, m)
INPUT "kakuyu stroku vychitaem=", v
INPUT "krome stroki=", k
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
x(i, j) = INT(RND * 100)
PRINT x(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
IF i <> k THEN
FOR j = 1 TO m
x(i, j) = x(i, j) -x(v, j)
NEXT
END IF
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT x(i, j);
NEXT
PRINT
NEXT
1) В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова.
Хреновые у вас учителя, если такую простую задачу не могут решить
1. вводим строку
2. разбиваем её на слова (ищем пробелы) и слова заносим в массив.
3. проходим по массиву, начиная со 2 элемента и определяем, будет ли предыдущий элемент меньше взятого, если да, то выводим слово
0
63 / 63 / 57
Регистрация: 15.05.2011
Сообщений: 109
24.05.2011, 19:03
кот Бегемот, у вас в программе строки после строки j, остаются неизменными, так как все элементы j равны 0.
Изображения
 
1
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
24.05.2011, 20:31
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Да, не всё так просто...
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
INPUT "kolichestvo strok=", n
INPUT "kolichestvo stolbcov=", m
DIM a(n, m)
INPUT "kakuyu stroku vychitaem=", v
INPUT "krome stroki=", k
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 100)
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
IF i <> k AND i <> v THEN
 FOR j = 1 TO m
 a(i, j) = a(i, j) - a(v, j)
NEXT
END IF
NEXT
FOR i = 1 TO m
a(v, i) = 0
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT
PRINT
NEXT
0
Just Do it...
29.05.2011, 21:03
Цитата Сообщение от кот Бегемот Посмотреть сообщение
как-то сложно... а если вот так:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
INPUT "kolichestvo strok=", n
INPUT "kolichestvo stolbcov=", m
DIM x(n, m)
INPUT "kakuyu stroku vychitaem=", v
INPUT "krome stroki=", k
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
x(i, j) = INT(RND * 100)
PRINT x(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
IF i <> k THEN
FOR j = 1 TO m
x(i, j) = x(i, j) -x(v, j)
NEXT
END IF
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT x(i, j);
NEXT
PRINT
NEXT

Хреновые у вас учителя, если такую простую задачу не могут решить
1. вводим строку
2. разбиваем её на слова (ищем пробелы) и слова заносим в массив.
3. проходим по массиву, начиная со 2 элемента и определяем, будет ли предыдущий элемент меньше взятого, если да, то выводим слово

Чисто ради моего интереса, я очень благодарю вас за ту задачу, но вы не моглибы написать программу по 1-й задаче
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.05.2011, 21:03
Помогаю со студенческими работами здесь

В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик
Помогите решить: В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик. Отблагодарю.

В исходной строке определить и вывести слова, которые встречаются в строке по одному разу
В исходной строке а$ определить и вывести слова, которые встречаются в строке по одному разу.

В исходной строке а$ определить и вывести слова, которые встречаются в строке по одному разу
В исходной строке а$ определить и вывести слова, которые встречаются в строке по одному разу

В исходной строке а$ определить и вывести слова, в которых нет повторяющихся букв
Лабораторная работа №5.Символьные функции Задача 1. В исходной строке а$ определить и вывести слова, в которых нет повторяющихся букв. ...

В исходной строке а$ определить и вывести слова, в которых первая буква встречается всего один раз
Лабораторная работа №5 В исходной строке а$ определить и вывести слова, в которых первая буква встречается всего один раз


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru