Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.11.2017, 18:20   #1
dizz3r
 
Регистрация: 18.10.2017
Сообщений: 4
По умолчанию Помогите сделать структурную схему из кода массив

Помогите пожалуйста сделать структурную схему из кода массива, Заранее спасибо

на листке а4(или как вам удобно), схематично, визуально сам сделаю
Цитата:
const n=10;
c=5;
var p:array[1..n] of real;
i,j,k,im:integer;
pr:real;
begin
Randomize;
For i:=1 to n do
begin
p[i]:=-10+Random(20)+Random;
Write(p[i]:2:3,' ');
end;
Writeln;
Writeln;
k:=0;
For i:=1 to n do
If p[i]>c then
Inc(k);
Writeln(k);
im:=1;
For i:=2 to n do
If Abs(p[i])>Abs(p[im]) then
im:=i;
pr:=1;
For i:=im+1 to n do
pr:=pr*p[i];
Writeln(pr:2:3);
im:=1;
For i:=1 to n do
If p[i]>0 then
begin
pr:=p[i];
For j:=i downto im+1 do
p[j]:=p[j-1];
p[im]:=pr;
Inc(im);
end;
For i:=1 to n do
Write(p[i]:2:3,' ');
Writeln;
For i:=2 to im-1 do
For j:=1 to i-1 do
If p[j]>p[i] then
begin
pr:=p[i];
For k:=i downto j+1 do
p[k]:=p[k-1];
p[k]:=pr;
end;
For i:=im+1 to n do
For j:=im to i-1 do
If p[j]>p[i] then
begin
pr:=p[i];
For k:=i downto j+1 do
p[k]:=p[k-1];
p[k]:=pr;
end;
For i:=1 to n do
Write(p[i]:2:3,' ');
Writeln;
Readln;
end.
dizz3r вне форума
Старый 14.11.2017, 18:32   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите,пожалуйста, построить структурную схему retyih Общие вопросы Delphi 1 24.11.2014 16:18
Помогите,пожалуйста, построить структурную схему retyih Общие вопросы Delphi 0 24.11.2014 15:57
1. Составить структурную схему алгоритма решения задачи, пронумеровав все символы и дав пояснение Zvezdochka1287 Паскаль, Turbo Pascal, PascalABC.NET 4 09.04.2011 14:24
Помоги.те скласть структурную схему Dzef Компьютерное железо 0 18.05.2010 17:34