17.12.2017, 14:55 [+3 UTC]
в нашей команде: 2 385 чел. | участники онлайн: 9 (рекорд: 21)

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

:: консультации

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
17.12.2017, 11:01

Последний вопрос:
17.12.2017, 10:20

Последний ответ:
17.12.2017, 11:30

Последняя рассылка:
17.12.2017, 13:45

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

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

Наша кнопка:

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

Отзывы о нас:
29.12.2011, 10:46 »
Приходько Вячеслав Александрович
То же не убедительно, см оценку 1 ответа. Спасибо за10 пост. [вопрос № 184967, ответ № 269363]
23.12.2013, 23:07 »
Xgrows
ОГРОМНОЕ СПАСИБО!!! Что бы я делал без Вас! Вы мне очень помогли! Надеюсь у меня все решится после Вашей помощи. [вопрос № 187688, ответ № 272612]

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

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

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

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

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 434
mklokov
Статус: 6-й класс
Рейтинг: 42
Вадим Исаев ака sir Henry
Статус: Старший модератор
Рейтинг: 42

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

Консультация онлайн # 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;

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

svrvsvrv
Посетитель

ID: 399424

# 5

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

Спасибо.

 

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

Яндекс Rambler's Top100

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

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

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн