Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать их количество.

@Маргарита2911 · Регистрация: 06.05.2011

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

Вводится последовательность целых чисел. Найти среди них “точные квадраты”
(16,25 и т.д.) и подсчитать их количество.

@YuraAAA · 06.05.2011, 19:54

Visual Basic

Private Sub Command1_Click()
Dim A() As Single, n As Integer, c As Integer
n = InputBox("Всего в массиве")
ReDim A(1 To n)
For i = 1 To n
    A(i) = InputBox("Введите элемент № " & i)
    If Sqr(A(i)) = Fix(Sqr(A(i))) Then c = c + 1
Next i
MsgBox "Всего целых квадратов " & c
End Sub

@Маргарита2911 · 06.05.2011, 20:29 **[ТС]**

Спасибо огромное)))))

@velvet1545 · 25.05.2011, 18:53

ПРИВЕТ

ВОТ ПОСМОТРЕВ ВАШИ ЧУДЕСА НА ВИРАЖАХ В 5 ЛИНИЙ ТЕКСТА
У МЕНЯ ВДРУГ ПРОСНУЛАСЬ СОВЕСТЬ
И РЕШИЛ: ЗА ПАРУ ЧАСОВ:
НАКАТАТЬ ДЕЙСТВИТЕЛЬНО ХОРОШИЙ ИСХОДНИК
КОТОРЫЙ ДАЖЕ ДОРАБАТЫВАТЬ НЕ НАДО ПО СЕРЬЕЗНОМУ

ОН НА КУБЕЙСИКЕ

ЗАПУСКАЕТСЯ НА QBASIC.EXE
ИЛИ ЕГО КЛОНЕ.

ПРОГРАММА
СОЗДАЕТ СНАЧАЛА ТАБЛИЦУ КВАЛРАТОВ 1^2-100^2
ПОТОМ ТАБЛИЦУ СЛУЧАЙНЫХ ЧИСЕЛ В ДИАПАЗОНЕ 1-999 ПРИМЕРНО
ПОТОМ РИСУЕМ МАСИВ НАЙДЕНЫХ КВАДРАТОВ

ОКАЗЫВАЕТСЯ ИХ НА 100 СЛУЧАЙНЫХ ЧИСЕЛ ОКОЛО 4 ШТУК
ПРИТОМ ОДНО ЧИСЛО ИМЕЕТ БЛИЗНЕЦА.

Я ДУМАЮ ЭТО ИЗЗА АЛГОРИТМА ВСТРОЕННОГО RND
В ДАННЫЙ ЯЗЫК.

ПОТОМУ ЧТО ЭТОТ АЛГОРИТМ ПОСТРОЕН НА ИДЕЕ ОКРУЖНОСТИ
СОСТОЯЩЕЙ ИЗ 3 4 КЛЮЧЕВЫХ ТОЧЕК
ВООБЩЕМ ГДЕТО ЗДЕСЬ ЗАМЕЩАНО ПИ ЧИСЛО...

НО ЭТО ДОМЫСЛЫ УЖЕ ДЛЯ МАТЕМАТИЧЕСКОГО ОТДЕЛА ФОРУМА

БЛАГОДАРЮ ЗА ПОНИМАНИЕ.

@Маргарита2911 0 / 0 / 0 Регистрация: 06.05.2011 Сообщений: 5
		1
	Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать их количество. 06.05.2011, 19:31. Показов 1425. Ответов 3 Метки нет (Все метки) Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать их количество. 0

@Маргарита2911 0 / 0 / 0 Регистрация: 06.05.2011 Сообщений: 5
	06.05.2011, 20:29 [ТС]	3
	Спасибо огромное))))) 0

	25.05.2011, 18:53

Опции темы