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


Ответ
 
Опции темы Опции просмотра
Старый 22.01.2014, 03:54   #1 (permalink)
Andrey7284
Новичок
 
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Блок-схема

Ребят, помогите пожалуйста сделать блок схему к программе

Вот сама программа:

program laba1_19;
Uses crt;
const n=20;
type mas=array[1..n]of integer;
var a :mas;
max,min,r,i:integer;
procedure vvod(var a:mas);
var i:integer; {индекс (номер) элемента массива}
ch: char; {переменная для хранения кода символа нажатой клавиши}
begin

TextColor (black); {цвет символов}

ClrScr; {очистка экрана}
gotoxy(20,3); {вывод текста в указанном месте экрана}

Writeln('ВАШЕМУ ВНИМАНИЮ ПРЕДСТАВЛЯЕТСЯ ПРОГРАММА,');
gotoxy(13,4);
Writeln('КОТОРАЯ ОПРЕДЕЛЯЕТ МАКС. И МИН. ЧИСЛА В МАССИВЕ ИЗ 20 ЧИСЕЛ,');
gotoxy(7,5);
Writeln('И ВЫЧИСЛЯЕТ РАЗНОСТЬ МЕЖДУ НИМИ ЗАМЕНЯЯ ЕЮ ЧЕТНЫЕ ЭЛЕМЕНТЫ МАССИВА ');
gotoxy(35,6);
textattr:=green;
Writeln('ВНИМАНИЕ!');
Textattr:=white;
gotoxy(21,7);
Writeln('Размерность данного массива должна быть');
gotoxy(21,8);
Writeln('в интервале от 2 до 100!');
gotoxy(40,12);
textattr:=yellow;
Writeln('');
gotoxy(40,13);
Writeln('');
gotoxy(49,14);
Writeln('');
gotoxy(40,15);
Writeln('');
gotoxy(20,24);
textattr:=white;
Writeln('Нажмите любую клавишу для продолжения…');
Ch:=readkey; {считывание символа с клавиатуры}
ClrScr;
for i:=1 to n do
begin
Write('Введите ',i:2, '-й элемент:');
Readln(a[i]);
end;
end;


procedure vivod(var a:mas);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

Begin
vvod(a);
Writeln('Исходный массив');
vivod(a);
max:=0;
min:=30;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Max= ',max,' Min= ',min);

r:=max-min;
for i:=1 to n do
if (i mod 2)=0 then a[i]:=r;
writeln ('Результат');
vivod(a);
End.
Andrey7284 вне форума   Ответить с цитированием

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

Обратите внимание на данные топики

Блок-схема 1
Блок-схема 2
Блок-схема

Ads

Яндекс

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

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

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

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




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

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