Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.03.2016, 20:04   #1 (permalink)
rinat-shoker
Новичок
 
Регистрация: 26.02.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите для каждого из пунктов нарисовать блок-схему исходя из написанной программы

1. Формирование и вывод массива.
2. Поиск элемента последовательности, наиболее близкий по значению к максимальному в данной последовательности.
3. Удаление требуемого элемента из массива.
4. Упорядочение элементов массива по возрастанию.
5. Вывод результата.

uses Crt;
const n=20;
type Tmass=array[1..n] of integer;
var a:Tmass;
i,max,mi,t,r:integer;
begin
ClrScr;
Writeln('Massiv A:');
Writeln;
Randomize;
max:=-MaxInt;
mi:=0;
for i:=1 to n do
begin
a[i]:=Random(100);
Write(a[i]:4);
if a[i]>max then
begin
max:=a[i];
mi:=i;
end;
end;
Writeln; Writeln;
Writeln('Max = ',max,' [ ',mi,' ]');
Writeln;
t:=0; r:=MaxInt;
for i:=1 to n do
if i<>mi then
if (max-a[i]<r) then
begin
r:=max-a[i];
t:=i;
end;
Writeln('Naibolee blizkiy = ',a[t],' [ ',t,' ]');
Writeln;
for i:=t to n-1 do
a[i]:=a[i+1];
a[n]:=0;
Writeln('Noviy massiv:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
Writeln;
for i:=1 to n-1 do
for r:=1 to n-i do
if a[r]>a[r+1] then
begin
t:=a[r];
a[r]:=a[r+1];
a[r+1]:=t;
end;
Writeln('Sortirovanniy massiv:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
ReadKey;
end.
rinat-shoker вне форума   Ответить с цитированием

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

Люди уже создавали что то подобное, так что можете почитать

Помогите нарисовать блок-схему
Помогите нарисовать блок-схему TASM
Помогите нарисовать схему
Помогите, пожалуйста, составить блок-схему алгоритма программы
Помогите нарисовать блок схему

Ads

Яндекс

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

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

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

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




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

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