15.11.2018, 18:45 [+3 UTC]
в нашей команде: 3 110 чел. | участники онлайн: 11 (рекорд: 16)

:: РЕГИСТРАЦИЯ

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.55 (06.11.2018)

Общие новости:
24.09.2018, 16:49

Форум:
08.11.2018, 13:36

Последний вопрос:
15.11.2018, 16:52

Последний ответ:
15.11.2018, 14:53

Последняя рассылка:
15.11.2018, 15:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
20.01.2011, 19:41 »
Мироненко Николай Николаевич
Спасибо Вам большое! С помощью статьи проблема решена) [вопрос № 181908, ответ № 265485]
29.11.2010, 20:09 »
Litta
Спасибо, вот как раз середина с факториалами и не получалась, все просто и красиво [вопрос № 181003, ответ № 264406]
17.11.2010, 13:48 »
lamed
Как всегда, очень интересный материал! Большое спасибо. [вопрос № 180817, ответ № 264135]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 636
Степанов Иван /REDDS
Статус: 4-й класс
Рейтинг: 26
Асмик Гаряка
Статус: Советник
Рейтинг: 6

Перейти к консультации №:
 

Консультация онлайн # 191469
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: svrvsvrv (Посетитель)
Отправлена: 12.10.2017, 17:56
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

-----
 Прикрепленный файл (кликните по картинке для увеличения):

Состояние: Консультация закрыта

Ответ # 275364 от mklokov (6-й класс)

Здравствуйте, svrvsvrv!
Вот возможный вариант решения.
Компилятор PascalABC.net. Этот код должен работать в любой версии языка Pascal.

const N=10;

function sq(number: integer): boolean;
var i: integer;
begin
  sq:=false;
  for i:=1 to round(sqrt(number)) do
    if i*i = number then
    begin
      sq:=true;
      break
     end
end;

var a: array[1..N] of integer;
    i, counter: integer;
begin
  counter:=0;
  writeln('Введите ', N, ' натуральных чисел:');
  for i:=1 to n do
    read(a[i]);
  writeln;
  for i:=1 to N do
  if sq(a[i]) then
  begin
    write(a[i], ' ');
    counter:=counter+1;
  end;
  if counter = 0 then
    write('Квадраты целых чисел не найдены')
end.


Консультировал: mklokov (6-й класс)
Дата отправки: 13.10.2017, 13:49

5
Спасибо за консультацию!
-----
Дата оценки: 16.10.2017, 15:16

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 191469

Зенченко Константин Николаевич
Модератор

ID: 31795

# 1

= общий = | 16.10.2017, 10:30 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
mklokov:

smile
Достаточно:

Код (Pascal) :: выделить код
function sq(number: integer): boolean;
var i: integer;
begin
  sq:=number=sqr(round(sqrt(number)));//false;
//  for i:=1 to round(sqrt(number)) do
//    if i*i = number then
//    begin
//      sq:=true;
//      break
//     end
end;

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

svrvsvrv
Посетитель

ID: 399424

# 2

= общий = | 16.10.2017, 15:18 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:

Спасибо за консультацию!
Скажите, пожалуйста, а можно ли решеть без boolean, каким-то другим способом?

mklokov
6-й класс

ID: 400828

# 3

= общий = | 16.10.2017, 17:26 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:


Да, Вы правы.
Такой "Си-шный" подход трудно донести до новичка, ему переборный алгоритм должен быть понятнее, имхо.
Без логического условия затрудняюсь что-то придумать: надо ответить да/нет на вопрос квадрат, или нет.

Зенченко Константин Николаевич
Модератор

ID: 31795

# 4

= общий = | 23.10.2017, 08:42 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
svrvsvrv:

© Цитата: svrvsvrv
а можно ли решеть без boolean, каким-то другим способом

Само условие вынести в строку if sq(a[ i ]) then и заменив функцию if i=sqr(round(sqrt(i))) then

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

svrvsvrv
Посетитель

ID: 399424

# 5

= общий = | 23.10.2017, 13:08 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:

Спасибо.

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.33718 сек.

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.55 от 06.11.2018