Вернуться   Развлекательный портал CN.ru - Форум > Технологии > Программирование > Обмен опытом

Ответ
 
Опции темы
Старый 11.12.2013, 14:46 ↑ #1
Amne
новосёл
 
Регистрация: 13.10.2012
Сообщений: 15
Репутация: 0
Amne молчание-золото
По умолчанию Есть 2 кода на Паскале, кто может блок схемы со всем нужным зафигачить?

Собственно сами коды, блок-схемы не понимаю, может кто помочь?
1.
const
m = 10;

var
arr: array[1..m] of integer;
i, j, k: integer;

begin
randomize;

write ('Исходный массив: ');
for i := 1 to m do begin
arr[i] := random(256);
write (arr[i]:4);
end;
writeln; writeln;


for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;

write ('Отсортированный массив: ');
for i := 1 to m do
write (arr[i]:4);

writeln;

readln
end.

2.
const n=10;
var a:array[1..n] of integer;
i,min,imin:byte;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
min:=19;
for i:=1 to n do
if (a[i] div 1+a[i] mod 1)<min then
begin
min:=(a[i] div 1+a[i] mod 1);
imin:=i;
end;
write('Chislo s minimalnoj summoj cifr=',a[imin]);
readln;
end.
Amne вне форума   Ответить с цитированием
Ответ

Опции темы

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

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


Текущее время: 02:47. Часовой пояс GMT +6.
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot

ВКонтактeTwitterFacebook
Хотите связаться с нами? Напишите письмо, и мы обязательно ответим.