|
|
Другие темы раздела | |
Basic Принадлежность промежутку
https://www.cyberforum.ru/ basic/ thread816225.html Помогите с написанием кода...%-) Как узнать принадлежит ли число Х промежутку чисел находящихся между 0 и заданным Y? |
Тарабарщина из bat файла Basic Здравствуйте, в bat файле, после его создания другим человеком, поменялась, видимо кодировка, и вместо русских букв появилась "тарабарщина", можно ли их восстановить : /NЂ¤¬Ё* /PЎгев ? |
Basic Вычислить сумму и размерность заданного одномерного массива размером 5 Вычислить сумму и размерность заданного одномерного массива размером 5 https://www.cyberforum.ru/ basic/ thread804960.html |
Basic Вычислить сумму положительных элементов строк для матриц А(5,10) и В(8,6)
https://www.cyberforum.ru/ basic/ thread804569.html Вычислить сумму положительных элементов строк для матриц А(5,10) и В(8,6). С помощью подпрограмм 1 способ CLS INPUT n, m, k, l CALL sum(A(), m, n, S1) CALL sum(B(), k, l, S2) PRINT S1; S1 END SUB sum (X(), m, n, S) |
Проверка координат Basic как на Qbasic сделать проверку попадают ли координаты шарика в мишень. Я написал программу типа игра там есть пушка и мишень. На пушке можно задавать скорость изменять угол и когда она стреляет как сделать чтобы он показывал попал я в мишень или нет..шарик летит по законам физики учитывалась только сила тяжести...радиус мишени 20... срочно надо помогите пожалуйста... |
Basic Где можно скачать Бейсик?
https://www.cyberforum.ru/ basic/ thread803659.html Подскажите где можно скачать Бейсик? |
Basic ftp передача файла Научил железку программируемую на Basic ходить на фтп, кидать файлы, но, на одном фтп все ок, а на другом, при окончании передачи файла, он просто обнуляется. Как я делаю? Открываю соединение, отправляю STOR После чего кидаю данные После того как я передал все данные, я просто закрываю соединение, на FileZilla у меня все нормально, файл записывается, но другой фтп, просто обнуляет файл... В... https://www.cyberforum.ru/ basic/ thread801204.html |
Basic ВЫчисление выражения здравствуйте! прошу помощи в составлении программы для вычисления выражения (x*\arctan z +\exp-(x+y))/\log 3*2x+\sin (\lg x) . Вот, что я пишу в Basic: CLS INPUT "X = "; X INPUT "Y = "; Y INPUT "Z = "; Z P=X+Y F!=(X*ATN(Z)+EXP(-P))/(LOG(2*X/LOG(3))+SIN(LOG(X)/LOG(10)) |
Basic Liberty Basic
https://www.cyberforum.ru/ basic/ thread799701.html 'по книге Уллеса Вонга -стр 113-114 PROMPT "How long did you go to law school?";Answer if (Answer>4) then print "Cogratulations! You now know enough to" print "sue your law school for wasting your time." else if (Answer>2) then print "you may not have finished law school yet" print "but that doesn't mean you can't lie about it." end if |
Basic Найти максимальное значение модуля разности между каждой парой элементов, т.е. между D1 и D2, D3 и D4.
https://www.cyberforum.ru/ basic/ thread797455.html 1)Создать одномерный целочисленный массив из 20 значений. Найти максимальное значение модуля разности между каждой парой элементов, т.е. между D1 и D2, D3 и D4. |
За сколько часов турист достигнет высоты в 5700м? Basic 1)Турист, поднимаясь в гору, в первый час достиг высоты 800м, а каждый следующий час поднимался на высоту, на 25м меньшую, чем в предыдущий. За сколько часов он достигнет высоты в 5700м? |
Basic Найти количество отрицательных чисел в последовательности из n чисел Найти количество отрицательных чисел в последовательности из n чисел (последовательность вводится пользователем). https://www.cyberforum.ru/ basic/ thread797450.html |
30 / 31 / 0
Регистрация: 26.08.2013
Сообщений: 282
|
|
23.09.2013, 09:28 | 0 |
Даны числа a, b, c. Если все они равны нулю, вывести об этом сообщение, если среди чисел нет нулей, найти и вывести их произведение, в противном случа - Basic - Ответ 508792123.09.2013, 09:28. Показов 3397. Ответов 2
Метки (Все метки)
Ответ
Neimoverniy,
Если все они равны нулю, вывести об этом сообщение if a=0 and b=0 and c=0 then print все равны нулю; если среди чисел нет нулей, найти и вывести их произведение if a<>0 and b<>0 and c<>0 then print a+b+с в противном случае нули заменить суммой двух других чисел if (a=0 and(b<>0 or c<>0)) then a=b+с if (b=0 and (a<>0 or c<>0)) then b=c+a if (c=0 and (b<>0 or a<>0) then c=a+b Добавлено через 1 минуту но не указано что сделать если две из трёх равны нулю, хотя полагаю в таком случае все переменные уравняются типа a=b=c Вернуться к обсуждению: Даны числа a, b, c. Если все они равны нулю, вывести об этом сообщение, если среди чисел нет нулей, найти и вывести их произведение, в противном случа Basic
1
|
23.09.2013, 09:28 | |
Готовые ответы и решения:
2
Если среди чисел нет нулей, найти и вывести их произведение Заменить в массиве все нечетные числа на 1. Если нечетных чисел нет, то вывести сообщение об этом Дана последовательность из n целых чисел. Определить количество нулей, если их нет, вывести сообщение об этом Даны 3 числа. На экран вывести только отрицательные. Если таких нет, выдать сообщение об этом. (Блок-Схема) |
23.09.2013, 09:28 | |
23.09.2013, 09:28 | |
Помогаю со студенческими работами здесь
0
В заданном массиве найти максимальный элемент среди уникальных; если такового нет, вывести сообщение об этом Даны целые числа K,N и набор из N целых чисел Если в наборе присудствует число меньше К то вывести True; в противном случаи вывести False с поролем Если все введенные числа положительны, то вывести их произведение,если среди них есть хотя бы один 0, то сумму Даны целые числа K,N и набор из N целых чисел. Если в наборе имеются числа, меньшие К, то вывести True; в противном случ |