Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Rubaka
0 / 0 / 1
Регистрация: 29.05.2010
Сообщений: 6
#1

Нужна блок-схема - Pascal

30.05.2010, 08:14. Просмотров 432. Ответов 2
Метки нет (Все метки)

Вот программка, к ней нужна блок-схема. Помогите пожалуйста.
http://www.cyberforum.ru/pascal/thread1005449.html

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses
    crt;
var
  a:array[1..500] of integer;
  i,n,j,m,s:integer;
begin
  writeln('wvedite ramernost massiv A ' ;
  readln(n);
  writeln('wvedite massiv A ' ;
  for i:=1 to n do
      read(a[i]);
    m:=a[1];
    for i:=1 to n do
        begin
             if a[i]>m then
                 begin
                      m:=a[i];
                      j:=i;
                  end
        end;
    s:=0;
    if m=a[1] then
       writeln('max element 1 summa ravna 0! '
    else
     begin
    for i:= 1 to j-1 do
        s:=s+a[i];
writeln('max element = ',m,' ego indeks = ',j);
writeln('summa elementov predshestvuyshi maksimalnomu = ',s);
end;
readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2010, 08:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужна блок-схема (Pascal):

Нужна блок схема
Не знаю как нарисовать помогите. Первая Const N=5; Type mas=array of real;...

Нужна блок-схема
Кто не сильно занат, помогите с блок-схемой к программе program CoolProgram;...

Нужна блок схема
Дан массив целых чисел D1,...,D30. Удалить из него те элементы, которые больше...

Нужна блок схема
Нужна блок схема к трём задачям! 1: program cyb_52; uses Crt; var R1,...

нужна блок-схема
помогите пожалуйста с блок-схемой к этой программе: const n=10; var...

2
Rubaka
0 / 0 / 1
Регистрация: 29.05.2010
Сообщений: 6
30.05.2010, 09:46  [ТС] #2
Посмотрите пожалуйста, так правильно будет?
0
Миниатюры
Нужна блок-схема  
Dilmur
12 / 12 / 4
Регистрация: 29.05.2010
Сообщений: 27
30.05.2010, 15:09 #3
Вот ваша блок-схема ---------- pas.rar
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2010, 15:09
Привет! Вот еще темы с решениями:

Нужна блок схема
Можно ли с помощью Worda написать блок схему если да то помогите написать блок...

Нужна блок-схема
program m1; var a:array of integer; i,j,max,min,s,n,m,i1,j1:integer; begin...

Срочно нужна блок схема
program l4z1; const l=100; var a:array of integer; i,m:integer; begin...

Срочно нужна блок-схема
Program jone; uses crt; const nmax=100; var a:array of integer; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru