Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 05.06.2014, 16:13   #1 (permalink)
masterstvo2012
Новичок
 
Регистрация: 05.06.2014
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужна блок-схема по этому коду

uses
crt;
procedure Find;
var
i: Integer;
n1, n2: Integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i, ' - подходит, решение найдено...');
exit;
end
else
writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i);
end;
end;

begin
clrscr;
writeln('Выполняется поиск...');
Find;
end.
masterstvo2012 вне форума   Ответить с цитированием

Старый 05.06.2014, 16:13
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, пробежитесь глазами по схожим темам

Если кто может, пожалуйста, нарисуйте блок схему по моему коду
Составить алгоритм в блок схемах по коду
Нужна блок-схема к программе
Построение блок схем по коду Pascal
Блок-схема по коду Pascal
Нужна блок-схема, помогите

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:27.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.