Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Ильдар Гилязов
-13 / 0 / 0
Регистрация: 30.03.2011
Сообщений: 20
1

Блок схемы

02.04.2011, 01:17. Просмотров 643. Ответов 0
Метки нет (Все метки)

помогите составить блог схему для программ)))
Program m1;
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  uses crt;
var a:array[1..100] of integer;
i,n,s,f:integer;
begin clrscr;
s:=0; f:=1;
write('Введите размер массива: ');
readln(n);
clrscr;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
for i:=1 to n do begin
if odd(a[i]) then f:=f*a[i];
end;
writeln;
write('Произведение нечетных элементов= ',f);
writeln;
end.

Program m2;
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a:array[1..100] of integer;
i,n,s,f:integer;
begin clrscr;
s:=0; f:=1;
write('Введите размер массива: ');
readln(n);
clrscr;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
for i:=1 to n do begin
if not odd(i) then s:=s+a[i];
end;
writeln;
write('Сумма элементов, стоящих на четных местах= ',s);
writeln;
end.















Program m3;
3)
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
33
34
35
36
37
38
  uses crt;
var b,a:array[1..100] of integer;
i,n,f,m:integer;
begin clrscr;
randomize;
f:=0;
write('Введите размер массива A: ');
readln(n);
clrscr;
writeln('Исходный массив A: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('Введите размер массива B: ');
readln(m);
writeln('Исходный массив B: ');
for i:=1 to m do begin
b[i]:=random(20)-10;
write(b[i],' ');
end;
writeln;
                    for i:=1 to m do
                     begin {Объединяем массивы X,C}
                       n:=n+1;
                         a[n]:=b[i];
                          end;
                          writeln('Объединение массивов X+C');
                          for i:=1 to n do
                          write(a[i],' ');
 
for i:=1 to n do begin
if a[i]<0 then inc(f);
end;
writeln;
write('Количество отрицательных элементов в массиве: ',f)
end.
Program m4;
4)
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
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const max=100; {Задаем размер константы}
var x,c:array[1..max] of integer;
    n,m,i,j:byte;
        b,imax,jmax:integer; {Описание переменных}
        begin clrscr;
        randomize; {Подключаем randomize, чтобы менялись значения при запусках программ}
        write('Размер массива X');
        readln(n); {Вводим размер массива Х}
        writeln('Исходный массив X:');
        for i:=1 to n do
         begin
           x[i]:=random(20)-9;{Заполняем массив Х}
             write(x[i]:3);{Выводим массив Х}
              end;
              writeln;
              writeln;
              imax:=x[1];
                          for i:=1 to n do begin
                          if imax<x[i] then
                          imax:=x[i];
                          end;
                          write('Максимальный эл-т массива А: ',imax);
                          writeln;
                          writeln;
              write('Размер массива C');
              readln(m);{Вводим размер массива С}
              writeln('Исходный массив C:');
              for i:=1 to m do
               begin
                 c[i]:=random(20)-9;{Заполняем массив С}
                   write(c[i]:3);{Выводим массив С}
                    end;
                jmax:=c[1];
              writeln;
              for i:=1 to m do begin
                if jmax<c[i] then
                jmax:=c[i];
                end;
                write('Максимальный элемент массива С:',jmax);
                          writeln;
                writeln('Массив из максимальных элементов: ');
                write(imax,' ',jmax)
                          end.
Program5;
5)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 uses crt;
const max=100; {Задаем размер константы}
var x,c:array[1..max] of integer;
    n,m,i,j,f:byte;
        b,imax,jmax:integer; {Описание переменных}
        begin clrscr;
        randomize; {Подключаем randomize, чтобы менялись значения при запусках программ}
        write('Размер массива X');
        readln(n); {Вводим размер массива Х}
        writeln('Исходный массив X:');
        for i:=1 to n do
         begin
           x[i]:=random(20)-9;{Заполняем массив Х}
             write(x[i]:3);{Выводим массив Х}
              end;
              writeln;
              writeln;
              imax:=x[1];
                          for i:=1 to n do begin
                          if imax<x[i] then
                          imax:=x[i];
                          end;
                          write('Максимальный эл-т массива А: ',imax);
                          writeln;
                          writeln;
              write('Размер массива C');
              readln(m);{Вводим размер массива С}
              writeln('Исходный массив C:');
              for i:=1 to m do
               begin
                 c[i]:=random(20)-9;{Заполняем массив С}
                   write(c[i]:3);{Выводим массив С}
                    end;
                jmax:=c[1];
              writeln;
              for i:=1 to m do begin
                if jmax<c[i] then
                jmax:=c[i];
                end;
                write('Максимальный элемент массива С:',jmax);
                          writeln;
                writeln('Массив из максимальных элементов: ');
                write(imax,' ',jmax);
                writeln;
                writeln('Отсортированный массив: ');
                if imax>jmax then begin
                write(imax,' ',jmax)
                end;
                if imax<jmax then begin
                write(jmax,' ',imax)
                   end;
                   end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2011, 01:17
Ответы с готовыми решениями:

Блок схемы
Помогите. Мне задали задачу создать блок схему на тему шахмат. Нужно что бы...

Блок-схемы
Помогите составить задачи в виде блок-схем. 1)Даны 2 угла...

БЛОК-Схемы
1) Какой блок (или блоки) не используется для передачи данных внутри...

Составить блок схемы
1е задание должно быть решено, потом написан блок схем, и по ним уже...

Нарисовать Блок схемы
№11. строки(как одномерные массивы) Дано символьную строку. Слово -...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2011, 01:17

Исправление блок-схемы
Уважаемые знатоки, помогите с блок-схемой. Мне сказали что в неё нужно добавить...

составление блок-схемы
помогите пожалуйста составить блок схему по коду,категорически не получается их...

Составление блок-схемы
Доброго времени суток, уважаемые форумчане ! Задали следующее задание...


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

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

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