Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Определите тарифные ставки оклада работников https://www.cyberforum.ru/ pascalabc/ thread1206317.html Известно, что тарифная ставка оклада работника 5 разряда равна минимальной заработной плате. Определите тарифные ставки оклада работников 6, 7, 8, 9, 10, 11, 12, 13 и 14 разрядов, если известно, что ставки с 6 по 11 разряд увеличиваются на (0,05 от предыдущей +90). Ставка 12 разряда больше предыдущей в 1,8 раза, 13 разряда больше предыдущей на 450 руб, а ставка 14 разряда больше 12 в 1,8 раз....	Pascal ABC Найти количество положительных и отрицательных чисел в каждой строке матрицы размером MxN Дана матрица MxN. Найти количество положительных и отрицательных чисел в каждой строке и вывести ответ по каждой строке. Допустим как создать матрицу я знаю, и как искать, но я не знаю как ввести поиск в цыкл. uses crt; var a,b,c:arrayof real; i,j,ii,jj,m,n:integer; begin write ('Введите количество столбцов'); readln(m); write ('Введите количество строк'); readln(n); for ii:=1 to n do
Pascal ABC Вычислить сумму элементов каждой строки двумерного массива https://www.cyberforum.ru/ pascalabc/ thread1206115.html Задать двумерный массив m * n целых чисел m = 2, n = 3. Вычислить сумму элементов каждой строки	Pascal ABC Нарисовать флаг Белоруссии https://www.cyberforum.ru/ pascalabc/ thread1206111.html Нарисовать флаг Белоруссии
Вычисление максимального элемента матрицы Pascal ABC Создать модуль MATR который будет включать в себя следующие функции и процедуры: вычисление максимального элемента матрицы; вычисления суммы элементов матрицы.	Pascal ABC Решить неравенство https://www.cyberforum.ru/ pascalabc/ thread1205943.html Решить неравенство 1 или 2 1) \log_2(x-1)>2 2)\log_{0,8}(x-2)>1 Помогите пожалуйста!!! Добавлено через 12 минут
Pascal ABC Дописать к каждой строке файла результаты решения соответствующего уравнения и сохранить их в новом файле https://www.cyberforum.ru/ pascalabc/ thread1205871.html Дано файл, в котором каждая строка содержит три числа, разделенные пробелом - коэффициенты квадратного уравнения. Дописать к каждой строке файла результаты решения соответствующего уравнения и сохранить их в новом файле.	Нужно Составить блок-схему к программе Pascal ABC uses crt; const k = 4;n = 4; var L: arrayof integer; i, j, p: integer; begin
Pascal ABC Странный текст.Перевод на русскую Открываю код,а там вместо русских слов вот это ўҐ¤iвм *§ўг б®авг ЄўЁ Что делать?Как понять,что там написано? https://www.cyberforum.ru/ pascalabc/ thread1205726.html	Pascal ABC Через каждые 2 точки проводить прямые и считать количество точек по одну и по другую сторону прямой https://www.cyberforum.ru/ pascalabc/ thread1205663.html Дано 12 точек, принадлежавшие данной плоскости. Через каждые 2 точки проводить прямые и считать количество точек по одну и по другую сторону прямой. Показать графически.
Pascal ABC Найти сумму матриц Даны две целые квадратные матрицы C и T порядка n. Если количество нечетных элементов на обеих диагоналях матрицы T больше количества таких же элементов в матрице T больше количества таких же элементов в матрице C, то найти D=E+T+C, при иных - D=2E+T+3C, где E - единичная матрица порядка n. Need help, братцы)	Pascal ABC Записать в типизированный файл двумерный массив https://www.cyberforum.ru/ pascalabc/ thread1205587.html Добрый день. Каким способом можно записать в типизированный файл двумерный массив?

TheHater

0 / 0 / 0

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

Сообщений: 9

Блок схему поспособствуйте нарисовать - Pascal ABC - Ответ 6311554

13.06.2014, 07:47. Показов 509. Ответов 1

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

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

Pascal

const
mmax = 10;
nmax = 10; 
var
a:array [1..nmax,1..mmax] of integer;
b:array [1..mmax] of integer;
n,m,i,j,k,c: integer;
 
BEGIN
n:= 11;
m:= 11;
while (n > nmax)or(m > mmax)or(n < 1)or(m < 1) do
begin
  writeln('Введите размерность массива');
  readln(n,m);
  writeln ('Введите число по правилу которого будет формироваться массив');
  readln(k);
end;
 
for i:= 1 to n do
begin
  for j:= 1 to m do
  begin
    a[i,j]:= random(10);
    write(a[i,j]:3);
  end;
writeln();
end;
 
writeln();
 
for i:= 1 to n do
  begin
  c:= 0;
  for j:= 1 to m do
      if a[j,i] > k then c:= c+1;
  b[i]:= c;
  end;
for i:= 1 to n do
  write(b[i]:3);
writeln();
 
END.

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

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

13.06.2014, 07:47

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

Нарисовать блок-схему
uses crt; var s:string; i:integer; f:text; begin assign(f,'lab16.pas'); reset(f); while not...

Нарисовать блок-схему
Написать программу вычисления суммы S=1+2+3+4+5+6. Нарисовать блок-схему. Программу я уже написал,...

Нарисовать блок-схему
uses graphABC; function F1(x:real):real; begin F1:=x*cos(2*x); end; function F2(x:real):real;...

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

	13.06.2014, 07:47

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

13.06.2014, 07:47

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

Нарисовать блок-схему
Помогите нарисовать блок схему uses crt; type Tmas=array of integer; procedure Vvod(var...

Нарисовать блок-схему по коду
program massive; uses crt; var arr: array of integer; n, i, min, max, buf: integer; begin ...

Нарисовать блок-схему к программе
Program shagoviy; function f(x:real): real; begin f:=3*x-exp(x); end; var a,b,h,x:real; ...

Нарисовать блок-схему к готовому коду
Просто сам не буб, буб))) const m = 18; type mas = array of real; var n: integer; ...

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

Наверх