Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 03.06.2012, 18:15   #1
Alik0912
Новичок
 
Регистрация: 03.06.2012
Сообщений: 2
Репутация: 10
Восклицание Блок-схема

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

uses crt;
const
n=5;
m=15;
type
array_n=array[1..n] of real;
array_m=array[1..m] of real;

{процедура поиска максимального Ci max}
procedure get_max(c:array_n; var cmax:real; var imax:integer);
var
i:integer;
begin
cmax:=c[1];
imax:=1;
for i:=2 to n do
if c[i]>cmax then begin
cmax:=c[i];
imax:=i;
end;
end;

var
cmax: real;
i,j,imax: integer;
c:array_n;
y,x:array_m;
alfa,beta:real;

begin
{ввод данных}
c[1]:=0.2;
c[2]:=-1.3;
c[3]:=0.3;
c[4]:=7.4;
c[5]:=5;
alfa:=2.53;

{поиск максимального элемента и его индекса}
get_max(c, cmax, imax);
beta:=cmax/imax;
clrscr; {очистка экрана}
for j:=1 to m do begin
x[j]:=beta/j; {расчеты}
if alfa<=beta then
y[j]:=2*alfa+beta-x[j]
else
y[j]:=alfa-cos(beta)+x[j];
writeln('j=',j,' y=',y[j]:6:3, ' x=',x[j]:6:3); {вывод на экран}
end;
repeat until keypressed; {ожидание нажатия любой клавиши}
end.
Alik0912 вне форума   Ответить с цитированием
Старый 03.06.2012, 18:34   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,406
Репутация: 2502

icq: 438888048
По умолчанию

Основная программа:

Процедура:

Есть же программы для построения блок-схем (FCEditor, например)
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума   Ответить с цитированием
Старый 03.06.2012, 23:58   #3
Alik0912
Новичок
 
Регистрация: 03.06.2012
Сообщений: 2
Репутация: 10
По умолчанию

Большое спасибо)
Я искал, только чёт не нашёл(
Буду теперь знать)
Alik0912 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Блок схема lady.ulumba Помощь студентам 3 11.09.2011 16:47
Блок схема. 2008kedr2008 Общие вопросы C/C++ 2 02.12.2010 12:52
Схема алгоримта (блок схема) на задачу по Паскалю LINCHAK Помощь студентам 0 22.10.2010 16:56
Блок -Схема Lev.F Помощь студентам 3 13.06.2010 17:10
Блок схема алгоритма программы и схема взаимодействия модулей. Lazio Фриланс 3 03.12.2009 00:10


03:39.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.