Найти объем куба и площадь его боковой поверхности

14.09.2010, 17:47. **Показов** 3421. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Помогите решить задачи на QBasic, пожалуйста :)

1. Определить долю пробелов в заданной строке.

2. Дана длина куба. Найти объем куба и площадь его боковой поверхности.

3. Дано двузначное число. Определить, является ли сумма его цифр двузначным числом и больше ли числа a сумма его цифр.

4. Даны натуральные числа x и y. Вычислить произведение xy, используя лишь операцию сложения.

Кому сколько не жалко ;)

@Quiet Snow · 14.09.2010, 19:05

Сообщение от neostereo

Определить долю пробелов в заданной строке.

PureBasic
1
2
3
 CLS: PRINT "Vvedite stroku: "; : INPUT st$
   FOR pr% = 1 TO LEN(st$): IF MID$(st$,pr%,1) = " " THEN ko% = ko% + 1
   NEXT : PRINT "Probeli:"; ko%

Сообщение от neostereo

2. Дана длина куба. Найти объем куба и площадь его боковой поверхности.

PureBasic
1
2
3
4
 CLS
 PRINT "Vvedite dlinu kuba: "; : INPUT dl%
 PRINT "ob'em:"; dl%^3
 PRINT "ploschad':"; dl%^2

Сообщение от neostereo

4. Даны натуральные числа x и y. Вычислить произведение xy, используя лишь операцию сложения.

PureBasic
1
2
3
4
5
 CLS
 PRINT "Vvedite X: "; : INPUT X&
 PRINT "Vvedite Y: "; : INPUT Y&
 FOR p& = 1 TO X&: Pr& = Pr& + Y&: NEXT
 PRINT "Proizvedeniye:"; Pr&

Не компилировал проверяйте, 3-е попозже сделаю.

@кот Бегемот · 14.09.2010, 21:45

Сообщение от neostereo

3. Дано двузначное число. Определить, является ли сумма его цифр двузначным числом и больше ли числа a сумма его цифр.

PureBasic
1
2
3
4
5
6
7
INPUT "vvedite dvuznachnoe chislo ", n
INPUT "vvedite chislo a ", a
s = n \ 10 + n MOD 10
PRINT "summa cifr ";
IF s > 9 THEN PRINT "dvuznachnoe chislo " ELSE PRINT "ne dvuznachnoe chislo "
PRINT "summa cifr ";
IF s > a THEN PRINT "bolshe chisla a" ELSE PRINT "ne bolshe chisla a"

В программе не сделана проверка будет ли введённое число двузначным, при необходимости это можно добавить

15.09.2010, 19:57

Спасибо всем ответившим :) :) А то информатику сто лет назад изучала, решить эти задания нужно, а подробных самоучителей не смогла найти.
А еще? ;) Если не совсем наглею.

Дан отрезок AB, заданный координатами своих вершин A(x₁,y₁), B(x₂,y₂), точка C(x₃,y₃) принадлежит AB. Построить на экране отрезок AB и перпендикуляр длины L к нему с основанием в точке C.

Вычислить значение функции y=a^2 +1 при любом значении а.
√a^2+1 (под корнем весь знаменатель)
Формула упорно съезжает, извините, не знаю, что делать :(

@Quiet Snow · 15.09.2010, 20:16

Второе:

PureBasic
1
2
3
4
5
DIM a AS DOUBLE, f AS DOUBLE
CLS
PRINT "Vvedite znachenye a:"; : INPUT a
f = (a*a+1)/SQR(a*a+1)
PRINT "otvet: "; f

Первое по курсу линейки, формулы позабыл(чуть позже найду, они у меня были), там через уравнение прямой делается.

@кот Бегемот · 15.09.2010, 20:57

>Quiet Snow<, можно было просто вычислить sqr(a^2+1)

@Quiet Snow · 15.09.2010, 21:15

Сообщение от кот Бегемот

можно было просто вычислить sqr(a^2+1)

Ну хитёр))))...

Формулы нашёл, бошка чё-то не варит уже, короче гляньте, прикрепил.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

neostereo

	Найти объем куба и площадь его боковой поверхности 14.09.2010, 17:47. Показов 3421. Ответов 6 Метки нет (Все метки) Помогите решить задачи на QBasic, пожалуйста :) 1. Определить долю пробелов в заданной строке. 2. Дана длина куба. Найти объем куба и площадь его боковой поверхности. 3. Дано двузначное число. Определить, является ли сумма его цифр двузначным числом и больше ли числа a сумма его цифр. 4. Даны натуральные числа x и y. Вычислить произведение xy, используя лишь операцию сложения. Кому сколько не жалко ;)

neostereo
	15.09.2010, 19:57
	Спасибо всем ответившим :) :) А то информатику сто лет назад изучала, решить эти задания нужно, а подробных самоучителей не смогла найти. А еще? ;) Если не совсем наглею. Дан отрезок AB, заданный координатами своих вершин A(x₁,y₁), B(x₂,y₂), точка C(x₃,y₃) принадлежит AB. Построить на экране отрезок AB и перпендикуляр длины L к нему с основанием в точке C. Вычислить значение функции y=a^2 +1 при любом значении а. √a^2+1 (под корнем весь знаменатель) Формула упорно съезжает, извините, не знаю, что делать :(

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	15.09.2010, 20:57
	>Quiet Snow<, можно было просто вычислить sqr(a^2+1) 0

Найти объем куба и площадь его боковой поверхности

Решение