Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
white_star

Постройте блок-схему пожалуйста!заранее спасибо)

22.06.2010, 12:43. Показов 940. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program p1;
var i, j, imax, jmax, max:integer;
Massive: array[1..3, 1..4] of integer;
begin
for i:=1 to 3 do
 for j:=1 to 4 do
  readln(Massive[i, j]);
max:=Massive[1, 1];
imax:=1;
jmax:=1;
for i:=1 to 3 do
 for j:=1 to 4 do
  begin
   if(Massive[i, j] > max) then
    begin
     max:=Massive[i, j];
     imax:=i;
     jmax:=j;
    end
  end;
writeln('max элемент =', max, ' n сторки ', imax, ' n столбца ', jmax);
end.
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.06.2010, 12:43
Ответы с готовыми решениями:

Кто сможет помогите пожалуйста с задачей заранее спасибо
Создать файл структуры наименование жевательной резинки,цена,свойство,(полезная,вредная,безвредная).Определить среднюю цену одной полезной...

Кто-нибудь поможет мне с блок-схемами для кода, написанного на паскале? Заранее спасибо!
Здравствуйте! Буду очень благодарен, если кто-нибудь поможет мне с блоксхемами для этого кода: program matrix; uses crt; const n...

Построить блок-схему. Спасибо!
Program Matr; uses crt; var i,j,i01,i02,j01,j02,k,n:integer; T:array of integer; begin writeln('Vvedite k:'); readln(k); ...

1
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
23.06.2010, 08:24
в прицепе
Миниатюры
Постройте блок-схему пожалуйста!заранее спасибо)  
Вложения
Тип файла: xls noName.pas.xls (22.0 Кб, 11 просмотров)
Тип файла: doc noName.pas.xls.doc (30.5 Кб, 12 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.06.2010, 08:24
Помогаю со студенческими работами здесь

проверьте пожалуйста блок-схему
program nomer2_1; var k,x,y:real; begin writeln ('vvedi k'); readln (k); writeln ('vvedi x'); readln (x); if k>0 then...

Сделайте блок схему пожалуйста
var a, b, c, d : integer; function tr (x, y, z : integer) : integer; begin if (x + y > z) and (x + z > y) and (z + y > x)...

Составьте пожалуйста блок-схему
Здравствуйте составьте пожалуйста блок схему к этой программе паскаль: program ABC1223; uses crt; type zap=record ...

Нарисуйте пожалуйста блок схему
uses crt; const nn=10;mm=10; type tarr=array of real; tvec=array of real; var a:tarr;b:tvec; l,n,m:integer; {Печать...

МаССивы маТРицы заранее спасибо=)+


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru