|
|
| Другие темы раздела | |
|
QBasic Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853)
https://www.cyberforum.ru/ qbasic/ thread2150509.html Дано число переставить первую и последнюю цифру и напечатать .Например (45;54)(3858;8853) |
QBasic Файлы. В чем ошибка? Почему не работает? Никак не могу понять Дано два файла, содержащих одинаковое количество целых чисел. Записать из них в третий файл только те пары чисел, в которых число из 1-го файла меньше соответствующего числа из 2-го файла. CLS INPUT "Vvedite imya fayla:", n$ OPEN n$ FOR OUTPUT AS #1 INPUT c RANDOMIZE TIMER FOR i = 0 TO c - 1 a1(i) = INT(20 * RND) - 20 PRINT a1(i); WRITE #1, a1(i) |
|
QBasic Записать в другой файл только те строки,которые начинаются с заданной буквы
https://www.cyberforum.ru/ qbasic/ thread2149661.html Помогите,пожалуйста,написать программу.Дан файл. Записать в другой файл только те строки,которые начинаются с заданной буквы. |
QBasic В двумерном массиве для найденных максимума и минимума найти их индексы
https://www.cyberforum.ru/ qbasic/ thread2148423.html В двумерном массиве для найденных максимума и минимума найти их индексы. Имеем такую программу: CLS DIM X(6, 6) P = 200 ‘P = X(1, 1) P1 = 1 FOR i = 1 TO 6 FOR j = 1 TO 6 X(i, j) = INT(RND(i) * 100) LOCATE j * 2, i * 4 – 2 |
|
QBasic В массиве из случайных чисел поменять попарно элементы массива, используя оператор FOR В массиве из случайных чисел поменять попарно элементы массива, используя оператор FOR. Вот такая программа: CLS DIM A(10) FOR i = 1 TO 10 A(i) = INT(RND * 50 – 5) PRINT A(i); NEXT i PRINT |
QBasic Определить номер строки с максимальной суммой положительных элементов
https://www.cyberforum.ru/ qbasic/ thread2148421.html Для одного двумерного массива Z(5, 4) определить номер строки с максимальной суммой положительных элементов. CLS DIM Z(3, 4) S = 0 FOR i = 1 TO 3 FOR j = 1 TO 5 Z(I, j) = INT(RND * 20 – 5) LOCATE i * 2, j * 3 PRINT Z(i, j) |
|
QBasic Поменять местами первую и последнюю цифру числа N
https://www.cyberforum.ru/ qbasic/ thread2147595.html Поменять местами первую и последнюю цифру числа N. Например: Input 34569 Output 94563 Заранее благодарю!!! |
Расчет n значений функции с равномерным шагом QBasic Не знаю как написать код программы и решить задачу: Для заданной подынтегральной функции Y=f(x) на интервале х{} рассчитать n значений функции с равномерным шагом изменения аргумента х, значения аргумента и функции предоставить в виде таблицы. Исходные данные: Y=(интеграл)от b до а √(2*x+1)*dx здесь n=40, a=0, b=1. |
| QBasic Заполнить двумерный массив *Заполнить двумерный массив размером 7 *7 числами 1, 2, ..., 49, расположенными в нем по спирали (по часовой стрелке) https://www.cyberforum.ru/ qbasic/ thread2145464.html | QBasic Даны три числа. Используя эти числа создать наибольшее четное число, если невозможно, то программа должна напечататьНЕТ Даны три числа Используя этих чисел создать наибольшее четное число, если невозможно, то программа должна напечатать "НЕТ" Результат естественно напечатать. Например: 1) 5 6 2 РЕЗУЛЬТАТ: 652 2) 5 9 3 https://www.cyberforum.ru/ qbasic/ thread2145418.html |
|
Программа вычисляющая корни квадратного уравнения QBasic Не получается запустить, скорее всего с end if напутал. DIM a, b, c, d, x1, x2, k AS SINGLE INPUT a INPUT b INPUT c d = (b * b) - 4 * a * b IF a = 0 THEN x1 = -b / a x2 = 0 |
QBasic В массиве из случайных чисел поменять попарно элементы массива В массиве из случайных чисел поменять попарно элементы массива. Вот составил программу: CLS DIM A(10) FOR i = 1 TO 10 A(i) = INT(RND * 50 – 5) PRINT A(i); NEXT i PRINT https://www.cyberforum.ru/ qbasic/ thread2143728.html |
| 17.12.2017, 10:09 | 0 | |||||
Дан файл, строки которого могут содержать и числа, и слова. Сформировать другой файл, содержащий только числа - QBasic - Ответ 1195373717.12.2017, 10:09. Показов 1165. Ответов 3
Метки (Все метки)
 Сообщение было отмечено Олеся Островска как решение
Решение
Последняя программа имеет небольшой недостаток.
Если в строке несколько чисел, то она объединяет их в одно. В прилагаемой программе недостаток устранён - числа разъединены пробелом.
Вернуться к обсуждению: Дан файл, строки которого могут содержать и числа, и слова. Сформировать другой файл, содержащий только числа QBasic
1
|
||||||
| 17.12.2017, 10:09 | |
|
Готовые ответы и решения:
3
Дан файл, строки которого могут содержать и числа, и слова. Сформировать другой файл, содержащий только числа
|
| 17.12.2017, 10:09 | |
| 17.12.2017, 10:09 | |
|
Помогаю со студенческими работами здесь
0
|