Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Блок-схема для одномерного массива Помогите с Блок-схемой пожалуйста Const R:array of real=(4.3,-8.1,2.4,-0.1,7.5,-1.1,-2.3,4.5); Var i:integer; p:real; Begin p:=1; For i:=1 to 8 do if (-1<Power(i,R))and(Power(i,R)<3) then p:=p*R; writeln('Множина',p:0:2); End.Используйте теги подсветки кода. https://www.cyberforum.ru/ turbo-pascal/ thread684732.html	Исключить из массива все числа, встречающиеся более двух раз. Упорядочить числа на четных местах Turbo Pascal Дан массив х целых чисел . Исключить из него все числа , встречающиеся более двух раз (если такие имеются). Затем числа, стоящие на четных местах, упорядочить по невозрастанию. P.S Заранее Спасибо)
Turbo Pascal Найти произведение всех нечетных значений Y округленных к целому Найти произведение всех нечетных значений Y округленных к целому не получается program z1; uses crt; var y,ap,b,d,c,a,h:real; ak:integer; begin writeln(' начальное и конечное значение'); readln(ap,ak); writeln('введите b'); https://www.cyberforum.ru/ turbo-pascal/ thread684708.html	Turbo Pascal Последовательности чисел. Замена элементов. https://www.cyberforum.ru/ turbo-pascal/ thread684699.html Дано действительные числа а1, ..., an, b1, ..., bm.У последовательности а1, ..., an и в последовательности b1, ..., bm все члены, расположенные за членом с наибольшим значением (за первым , если их несколько), замените 0.5. Добавлено через 11 часов 42 минуты Выручите плз, нужно зделать через процедуру(функцию).
Turbo Pascal Поменять местами большой элемент с маленьким и найти произведение всех элементов массива Поменять местами большой элемент с маленьким и найти произведение всех элементов массива	Turbo Pascal Вычислить значения выражений https://www.cyberforum.ru/ turbo-pascal/ thread684609.html Помогите написать код) 1) Название темы должно отражать ее суть. 2) Один вопрос - одна тема. 3) Текст задачи набирайте вручную. Для формул есть специальный редактор. Не первый день на форуме, пора бы уже как следует темы-то оформлять.
Turbo Pascal Найти сумму элементов массива с нечетными индексами и вывести те элементы, значение которых больше 5 и меньше 10 https://www.cyberforum.ru/ turbo-pascal/ thread684603.html Дан одномерный массив из 10 целых чисел заполненный случайным образом. а) Найти сумму элементов массива с нечетными индексами и вывести те элементы, значение которых больше 5 и меньше 10. б) Заменить минимальный по модулю отрицательный элемент нулем. Сумму элементов вроде понял как находить for i:=1 to ((2*n)-1) do if i mod 2<>0 then s:=s+a;	Проверить, есть ли в записи числа m цифры Turbo Pascal Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.
Turbo Pascal Найти сумму и количество элементов в каждом столбце, попадающих в интервал от А до В 2. Дан двумерный массив целых чисел размера М строк и N столбцов. Найти сумму и количество элементов в каждом столбце, попадающих в интервал от А до В на паскале.Помогите пожалуйста, завтра надо сдать(( https://www.cyberforum.ru/ turbo-pascal/ thread684592.html	Turbo Pascal Шифрование текста https://www.cyberforum.ru/ turbo-pascal/ thread684589.html вот документ Текст задания набирайте вручную. Для вставки формул есть встроенный редактор. Поясняющие изображения загружайте на форум в виде вложений.Прекратите дублировать тему в нескольких разделах форума.
Turbo Pascal Найти четные элементы массива, которые больше числа A и их количество Дан массив, состоящий из 16 елементов. Найти четные элементы массива, которые больше числа A и их количество. Число А вводить с клавиатуры.	Turbo Pascal Определить число N вагонов с массой большей или равной 60 т ЗАДАЧА!!! Даны веса 20 вагонов Z . 1) Определить число N вагонов с массой большей или равной 60 т. Общую массу этих вагонов. 2) Сформировать массив из них B . 3) Определить ,сколько вагонов имеют массу меньше или равную 10 т. , их порядковые номера в массиве Z. 4) Определить самый тяжелый вагон, его порядковый номер в массиве. И ЕСЛИ НЕ ТРУДНО БЛОГ СХЕМУ. https://www.cyberforum.ru/ turbo-pascal/ thread684564.html

H0NOR

0 / 0 / 0

Регистрация: 20.10.2012

Сообщений: 9

Блок-схема для двумерного массива - Turbo Pascal - Ответ 3632440

30.10.2012, 22:19. Показов 7324. Ответов 1

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Помогите с Блок-схемой пожалуйста

Pascal

const
  n=3;
  m=4;
  a: array[1..n,1..m] of real   =((  1,  -3,   5,  -6),
                                  (1.2,   0,  -1,   4),
                                  (  8, 1.5,   0,-1.5));
var
  b: array[1..n,1..m] of real;
  i,j: integer;
begin
  writeln('Получена матриця');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j]<>0 then b[i,j]:=1/a[i,j]
        else b[i,j]:=0;
      write(b[i,j]:7:2);
    end;
    writeln;
  end;
  readln;
end.

Вернуться к обсуждению:
Блок-схема для двумерного массива Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

30.10.2012, 22:19

Готовые ответы и решения:

Нужна блок схема для двумерного массива
program Project2; const k=10; {$APPTYPE CONSOLE} Var FlagCh, FlagKr, FlagM : Boolean; a:...

блок-схема для двумерного массива( по сделанной программе)
составьте пожалуйста блок-схему uses crt; var gryz: array of real; m,n,i,k,x,y:byte; ...

Создать блок-схему для двумерного массива
uses crt; var A:array of integer; i,j:integer; min:byte; begin For i:=1 to 8 do Begin For...

Блок-схема для одномерного массива
Помогите с Блок-схемой пожалуйста Const R:array of real=(4.3,-8.1,2.4,-0.1,7.5,-1.1,-2.3,4.5);...

	30.10.2012, 22:19

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

30.10.2012, 22:19

Помогаю со студенческими работами здесь

Блок схема для двухмерного массива с подпрограммой
Помогите с блок схемой Program tk7; var O,J:integer; procedure asd(x:integer; var n:integer);...

Блок схема для двух мерного массива
Помогите с блок схемой Program lab6; const n=5; var i,j:byte; a:array of byte; begin for...

Блок схема для Pascal программы определения вхождения одного массива в другой
Блок схему нужна для курсача( :cry: program aa; const p=20; m=5; var a:array of integer;...

Блок схема для процедуры ввода вывода чисел двухменого массива
uses crt; const nmax=20; type Vmatr=array of real;//вещественные Cmatr=array of...

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

Наверх