Аватар для pexota
3 / 3 / 0
Регистрация: 27.06.2010
Сообщений: 10
1

массивы составить блок схему

05.09.2010, 17:37. Показов 1231. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В одномерном массиве состоящем из n элементов вычислить:
1. Количество элементов массива, больших С
2. Произведения элементов массива расположенных после максимального по модулю элемента
1
Лучшие ответы (1)
05.09.2010, 17:37
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
05.09.2010, 17:37
Ответы с готовыми решениями:

Составить блок схему на массивы
В одномерном массиве состоящем из n элементов вычислить: 1. Количество элементов массива, больших С 2. Произведения элементов массива...

Составить блок-схему к программе на массивы
Помогите пожалуйста составить блок-схему к программе: uses crt; const n=6; m=9; var a:array of real; ...

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

1
Студент
 Аватар для Сэм
119 / 114 / 16
Регистрация: 14.08.2010
Сообщений: 673
05.09.2010, 18:23 2
Лучший ответ Сообщение было отмечено pexota как решение

Решение

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
53
54
55
56
57
58
59
60
61
62
63
64
65
program   pr1;
uses      crt;
const     WG=100;
type      tmasi=array[1..WG]of integer;
var       a:tmasi;
          nom,kol,i,n:byte;
          max,c:integer;
          p:real;
 
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       kl,i:byte;
begin
     writeln('1-vvod s klaviaturi, 2-sluchayniy vvod chisel');
     readln(kl);
     if kl=2 then randomize;
     writeln('razmernost');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('vved ',i,' element');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('isxodny massiv:');
     for i:=1 to n do write(mas[i]:5);
end;
 
function  f_max(n:byte; mas:tmasi; var nom:byte):integer;
var       i:byte;
          cop:integer;
begin
         cop:=mas[1];
         for i:=2 to n do
         if mas[i]>cop then begin
                                 cop:=mas[i];
                                 nom:=i;
                            end;
         f_max:=cop;
end;
 
begin
     pro_vv_mas(n,a); writeln('massiv:'); pro_out_mas(n,a);
     writeln;
     writeln('vvedite chislo Ñ');
     write('C=');
     readln(c);
     kol:=0;
     for i:=1 to n do if a[i]>c then inc(kol);
     max:=f_max(n,a,nom);
     p:=1;
     for i:=nom+1 to n do begin
                               p:=p*a[i];
                               if(p=1)and(i=n)then p:=0;
                          end;
     writeln('kolichestvo elementov bol`shix chisla Ñ- ',kol,';');
     writeln('max element- ',max);
     writeln('proizvedenie elementov stoyshix posle max elementa- ',p,'.');
end.
Добавлено через 23 секунды
Вот прога!

Добавлено через 1 минуту

Не по теме:

Перепроверьте))) если что!

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.09.2010, 18:23
Помогаю со студенческими работами здесь

создать блок схему на двумерные массивы
дано целочисленная матрица n x m определить: 1. MAX элемент в первом столбце и MIN элемент в последнем столбце. 2 MAX элемент во второй...

Одномерные массивы. Построить блок-схему
Уважаемые, помогите пожалуйста построить блок-схему. Pascal uses crt; const n=18;k=5; var a:array of integer; i,s:integer; begin...

Составить блок-схему
uses crt; const n=3; var a:array of real; b:array of real; i,j,ko:byte; s,s1:real; begin writeln('Матрица А'); ko:=0; ...

Составить блок-схему
uses crt; const nmax=20; var a:arrayof integer; i,j,n,m:integer; {процедура транспонирования матрицы} procedure...

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Обработка массивов с помощью циклов в JavaScript
hw_wired 12.02.2025
Массивы в JavaScript - это упорядоченные наборы элементов, где каждый элемент имеет свой индекс, начиная с нуля. Они невероятно гибки в использовании, позволяя хранить данные любых типов - числа,. . .
Создание каталога и всех родительских каталогов с помощью Python
hw_wired 12.02.2025
Работа с файловой системой - одна из ключевых задач при разработке программного обеспечения. Особенно часто возникает потребность создавать каталоги для хранения файлов, логов, временных данных и. . .
Возврат файла к состоянию указанного коммита Git
hw_wired 12.02.2025
Git - распределенная система контроля версий, без которой сложно представить современную разработку программного обеспечения. Когда речь заходит о восстановлении файлов, Git предоставляет целый. . .
Сброс локальной ветки Git до состояния HEAD удаленного репозитория
hw_wired 12.02.2025
Работая в команде разработчиков, часто сталкиваешься с ситуацией, когда локальная версия кода существенно отличается от той, что находится в центральном репозитории. Такое расхождение может. . .
Запрет подсветки выделения текста с помощью CSS
hw_wired 12.02.2025
Выделение текста - одна из базовых возможностей взаимодействия пользователя с контентом на веб-странице. Однако в некоторых случаях стандартное поведение выделения может нарушать задуманный дизайн. . .
Выполнение другой программы из приложения Python
hw_wired 12.02.2025
При разработке современных приложений часто возникает потребность в запуске и взаимодействии с другими программами прямо из кода. Python предоставляет множество эффективных средств для выполнения. . .
Отличия между let и var в JavaScript
hw_wired 12.02.2025
Работа с переменными - один из основных моментов при написании программ на JavaScript. От правильного объявления и использования переменных зависит не только читаемость кода, но и его надежность, а. . .
Подключение файла JavaScript в других файлах JavaScript
hw_wired 12.02.2025
Самый современный и рекомендуемый способ подключения JavaScript-файлов - использование системы модулей ES6 с ключевыми словами 'import' и 'export'. Этот подход позволяет явно указывать зависимости. . .
Отмена изменений, не внесенных в индекс Git
hw_wired 12.02.2025
Управление изменениями в Git - одна из важнейших задач при разработке программного обеспечения. В процессе работы часто возникают ситуации, когда нужно отменить внесенные изменения, которые еще не. . .
Что такое px, dip, dp, and sp в Android
hw_wired 12.02.2025
При разработке мобильных приложений для Android одним из ключевых вызовов становится адаптация интерфейса под различные устройства. А ведь их действительно немало - от компактных смартфонов до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru