Блок схема

нужна блок схема для программ

{подключаем модуль графики}
uses graphABC;
{задаем переменные}
var a,l,xc,yc,x,y:integer;
f,r:real;
begin
a:=200;
l:=50;
{задаем параметры графического окна}
xc:=windowwidth div 3;
yc:=windowheight div 2;
f:=0;
{задаем уравнение }
while f<=2*pi do
begin
r:=a*cos(f)+l;
x:=round(xc+r*cos(f));
y:=round(yc-r*sin(f));
setpixel(x,y,clRed);
f:=f+0.001;
end;
{заливаем область нашу область синим цветом}
floodfill(xc+2,yc,clBlue);
readln
end.


и


function Palindrom(n:integer):boolean; //проверка числа на "палиндромность"
var m,p:longint;
i,k:integer;
begin
m:=n;
p:=0;
while m>0 do //пока м больше 0
begin
i:=m mod 10; //отсекаем последнюю цифру
p:=p*10+i; //и ставим ее в начало другого числа
m:=m div 10;
end;
Palindrom:=p=n; //если число и его перевертыш равны, то ответ - истина, иначе ложь
end;
var a,b,i,k:integer;
begin
writeln('Введите диапазон чисел [a,b]:'); //пишем приглашение ввести числа
read(a,b); //вводим числа
writeln('Числа-палиндромы, квадраты которых тоже палиндромы'); //пишем надпись
k:=0; //Присваивает начальное значение переменной, которая показывает были ли такие числа квадраты которых палиндромы
for i:=a to b do //проверяем все числа од а до б
if Palindrom(i)and Palindrom(i*i) then //если число и квадрат числа - палиндромы, то
begin
writeln(i,' ',i*i); //выводим числои его квадрат
k:=1;//запоминаем, что нас были такие числа квадраты которых тоже палиндромы
end;
if k=0 then write('Таких чисел в этом диапазоне нет') // выводим ссобщение, если таких чисел нет
end.
writeln('Числа-палиндромы, квадраты которых тоже палиндромы');
k:=0;
for i:=a to b do
if Palindrom(i)and Palindrom(i*i) then
begin
writeln(i,' ',i*i);
k:=1;
end;
if k=0 then write('Таких чисел в этом диапазоне нет')
end.

Добавлено через 54 минуты
надо хотя бы простую по основным параметрам, я уже пробовал через програмку для блок схем

0

про 2ю, немного отличается, но смысл понятен

Вложения

bs-wolfallien.doc (32.0 Кб, 17 просмотров)

0