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

Нарисовать блок-схему

27.11.2014, 19:31. Показов 1142. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти среднее арифм. наименьших по абсолютной величине элементов каждой строки матрицы FM(m,m), находящихся над главной диагональю
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.11.2014, 19:31
Ответы с готовыми решениями:

нарисовать блок схему
помагите нарисовать блок схему, вот этой программа(процедура,основа и меню, отдельна пишится в блок схемах) ---------> Program fgyr; ...

Нарисовать блок-схему
Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного узла type tList = ^rList; rList...

Нарисовать блок-схему
uses crt; const n=8; var a,b:array of integer; i,sum,k:integer; sr:real; begin ClrScr; for i:=1 to n do ...

1
охотник
 Аватар для vint-81
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
27.11.2014, 21:52
Лучший ответ Сообщение было отмечено Аня В как решение

Решение

Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const m=5;
var fm:array[1..m,1..m] of integer;
    i,j,min,mink:integer;
    ar:real;
begin
    randomize;
    ar:=0;
    for i:=1 to m do
     begin
      min:=maxint;mink:=0;
      for j:= 1 to m do
       begin
        fm[i,j]:=-5+random(11);
        write(fm[i,j]:4);
        if i<j then if abs(fm[i,j])<min then begin min:=abs(fm[i,j]); mink:=j end;
       end;
      if mink>0 then ar:=ar+fm[i,mink]; 
      writeln
     end;
    writeln(ar/(m-1):0:3) 
end.
Миниатюры
Нарисовать блок-схему  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.11.2014, 21:52
Помогаю со студенческими работами здесь

нарисовать блок схему
нарисовать... блок схему!!!! const WG=100; type tmasi=array of integer; var n,i,j:byte; mas:tmasi; (*процедура ввода*) procedure...

Нарисовать блок-схему.
Помогите, пожалуйста нарисовать блок-схемы. uses crt; var x,y,z,x1,x2,mx,mn,sr,c: real; begin clrscr; write ('x= ');readln...

Нарисовать блок-схему
Нужно нарисовать блок-схему по данной задаче

Нарисовать блок-схему
Помогите нарисовать блок-схему к прогам: 1.Умножить матрицу А с розмерностью mxn на матрицу В с розмерностью nxl за формулою: С={Сума...

Нарисовать блок схему
Помогите, пожалуйста, нарисовать блок схему. type tstud = record fam: string; group: 1..7; geom: word; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru