0 / 0 / 0
Регистрация: 06.05.2011
Сообщений: 5
1

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

06.05.2011, 19:31. Показов 1266. Ответов 3
Метки нет (Все метки)

Вводится последовательность целых чисел. Найти среди них “точные квадраты”
(16,25 и т.д.) и подсчитать их количество.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2011, 19:31
Ответы с готовыми решениями:

Дана последовательность n целых чисел, определить есть ли среди них точные квадраты и вывести их на экран
Здравствуйте, программисты! Не могли бы вы помочь с решением задачи? Я пытался её написать, но...

Дана последовательность целых чисел. Определить, есть ли среди них точные квадраты и вывести их на экран
Дана последовательность целых чисел А1,...,А100. Определить, есть ли среди них точные квадраты и...

Вводится последовательность из n целых чисел, найти максимальное среди них
1. Вводится последовательность из n целых чисел. Найти максимальное среди них.

Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел
Вводится последовательность из N чисел. Найти произведение и количество положительных среди них...

3
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
06.05.2011, 19:54 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
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
0
0 / 0 / 0
Регистрация: 06.05.2011
Сообщений: 5
06.05.2011, 20:29  [ТС] 3
Спасибо огромное)))))
0
6 / 9 / 2
Регистрация: 21.05.2011
Сообщений: 81
25.05.2011, 18:53 4
ПРИВЕТ

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

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

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

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

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

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

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

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

БЛАГОДАРЮ ЗА ПОНИМАНИЕ.
Вложения
Тип файла: rar WORK0003.rar (744 байт, 11 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2011, 18:53
Помогаю со студенческими работами здесь

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

Вводится массив, состоящий из целых чисел. Найти наибольшее среди них
Вводится массив, состоящий из целых чисел. Найти наибольшее среди них. Входные данные Сначала...

Найти среди данного набора чисел точные квадраты
Написать программу, выясняющую, есть ли среди данных 10 чисел точные квадраты. Если такие есть, то...

Максимум в массиве. Вводится массив, состоящий из целых чисел. Найти наибольшее среди них
Помогите, пожалуйста, решить задачу, очень нужно срочно. Язык C# Вводится массив, состоящий из...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru