Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить значения https://www.cyberforum.ru/ pascal/ thread163425.html 1. Составить программу для вычисления значения многопараметрической функции F: ......................x-1 ..........Bx-Ae............................2 F=tg(____________________+А)-cos x X=-8; В-вещественный; А=3,5 .......извлечь корень из lB-1l	Pascal Даны допустимые строки Даны допустимые строки S,S1 и символ С. После каждого вхождения символа С в строку S вставить строку S1.
Pascal Поиск максимального элемента в масиве не работает... Доброго времени суток, пожалуйста посмотрите, я уже весь мозг разорвал себе, над пустяковым кодом!!! Программа работает, только поиск по массиву осуществляется с переменным успехом. К примеру, вывожу массив, смотрю значения в массиве, потом ищу максимальный элемент в нем и вывожу его значение и номер где оно находится, делую пару итераций, а поиск уже выдает не те значения.:( Код: program... https://www.cyberforum.ru/ pascal/ thread163378.html	Pascal Дан массив из N целых чисел.Изменить его таким образом чтоб его значения шли в обратном порядке. https://www.cyberforum.ru/ pascal/ thread163347.html Дан массив из N целых чисел.Изменить его таким образом чтоб его значения шли в обратном порядке.
Pascal Составить блок схему Найдите и выведите все двузначные числа, сумма квадратов цифр которых делится без остатка на 17	Pascal Не получается создать блок схему https://www.cyberforum.ru/ pascal/ thread163239.html Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3, 5 и 7
Pascal Табулирование функции. https://www.cyberforum.ru/ pascal/ thread163189.html Народ помогите с задачей!!!! sin(x) y={ cos(X) чему равен y если X= промежутку 1 до 4 или промежутку -2 до 3 с шагом 0,1	Pascal как составить блок схему введите с клавиатуры два числа N и M. если оба числа больше 100 то замените каждое из них меньшим и выводите результат. если первое число положительное, а второе отрицательное то уменьшите их в два раза и выведите результаты, иначе найдите и выводите среднее арифметическое этих чисел
Pascal Блок-схема Pascal Откликнитесь пожалуйста кто-нибудь,правильно ли я составила блок-схему! Составьте алгоритм по правилу «Если идет дождь, то взять зонт, если снег одеть куртку, в противном случае шляпу. https://www.cyberforum.ru/ pascal/ thread163170.html	Pascal Интересные упражнения Если будет время, может быть кто-нибудь глянет? вроде интересные задачи..да чёт я запуталась.. Составьте программу вывода в верхней части экрана движущегося корабля с постоянной скоростью. Ее значение каждый раз задается генератором случайных чисел. В нижней части экрана расположена пушка. При нажатии клавиши Enter происходит выстрел торпедой с постоянной, заранее заданной, скоростью клавишами... https://www.cyberforum.ru/ pascal/ thread163168.html
*Pascal Заполнение массива размерностью NN** Всем доброго времени суток!Вообщем.. Задача: Заполнить массив размерностью N*N 0 и 1 в шахматном порядке Написал так.. For i:=1 to n do For j:= 1 to n do IF (i mod 2 => 0) and (j mod 2=> 0) then m:=0 IF (i mod 2 = 0) and (j mod 2= 0) then m:=1 Внимание вопрос	Pascal Составить программу занесения в динамическую память вещественного массива https://www.cyberforum.ru/ pascal/ thread163139.html Составить программу занесения в динамическую память вещественного массива из 10000 чисел хранящихся в файле на магнитном диске, а также поиска в нём значения и номера первого максимального элемента.

Snoopy

1915 / 1065 / 384

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

Сообщений: 2,802

04.09.2010, 12:31

Составить блок схему на массивы - Pascal - Ответ 939639

04.09.2010, 12:31. Показов 1196. Ответов 2

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

Сообщение было отмечено pexota как решение

Решение

не компилировалось

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,c,max,imax,k,p:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
Writeln('C=');
Readln(c);
max:=abs(a[1]);
imax:=1;
k:=0;
for i:=1 to n do
 begin
  if a[i]>c then
   inc(k);
  if abs(a[i])>max then
   begin
    max:=abs(a[i]);
    imax:=i;
   end;
 end;
p:=1;
for i:=imax+1 to n do
 p:=p*a[i];
Writeln('Max ',max,' [',imax,']');
Writeln('Kol ',k);
Writeln('Pr ',p);
Readln;
end.

Вернуться к обсуждению:
Составить блок схему на массивы Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

04.09.2010, 12:31

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

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

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

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

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

	04.09.2010, 12:31

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

04.09.2010, 12:31

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

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

составить блок-схему
unit MODUL; interface type mas1=array of real; {задание записи}...

Составить блок-схему
помогите пожалуйста составить блок схему к программе program vosdva; uses crt; var s,ss:string;...

Составить блок-схему
БЛОК-СХЕМА? Var i:integer; s:string; Const prop=; Begin Write ('Введите строку: ');...

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 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 предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

Наверх