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

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

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2017, 18:45   #1
dizz3r
 
Регистрация: 18.10.2017
Сообщений: 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.
______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

Последний раз редактировалось Alex11223; 14.11.2017 в 19:07.
dizz3r вне форума Ответить с цитированием
Старый 14.11.2017, 21:01   #2
Magakudesnik
Новичок
Джуниор
 
Регистрация: 10.06.2014
Сообщений: 0
По умолчанию *

Пишите, сделаю.
почта: magakudesnik@gmail.com
скайп: daniil.nazarov
Magakudesnik вне форума Ответить с цитированием
Старый 15.11.2017, 07:26   #3
alexcoder
Форумчанин
 
Регистрация: 31.05.2009
Сообщений: 786
По умолчанию

dizz3r, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1
Помощь с программами:
vk.com/alexcoder1
e-mail: informatik101@mail.ru
alexcoder вне форума Ответить с цитированием
Ответ


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

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

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


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