Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal задания на модули ,нужно решить один из вариантов https://www.cyberforum.ru/ pascal/ thread266133.html Здравствуйте."Старые" задания на модули ,нужно решить один из вариантов,помогите пожалуйста наверняка кто-то сталикивался!	Pascal Даны векторы A и B, состоящие из p элементов. Построить из них матрицу C(p x p) по правилу... Даны векторы A и B, состоящие из p элементов. Построить из них матрицу C(p x p) по правилу Ci,j= 'система' Ai/(1+Bj), если Ai и Bi имеют одинаковые знаки, Bj/(1+Ai), если Ai и Bi имеют разные знаки. Помогите пожалуйста решить, поиск весь прошарил ничего не нашел, HELP!!!
Pascal Выходной файл должен содержать значения уровня воды на всех участках. https://www.cyberforum.ru/ pascal/ thread266033.html Здравствуйте всем!!!! У меня есть такая длинная задача, а я не знаю как ее связывать с программой кто-нибудь подскажете, спасибо заранее. Прямоугольный участок земли разбит на квадраты. Каждый квадрат описывается высотой (в метрах) над уровнем моря. В пределах одного квадрата высота одинаковая. На весь участок падает ливневый дождь. Определить какие квадраты будут затоплены водой. Вода за...	Pascal ОРГАНИЗАЦИЯ ФАЙЛОВОЙ СИСТЕМЫ. ОБРАБОТКА ТЕКСТОВЫХ ФАЙЛОВ. ТИПИЗИРОВАННЫЕ ФАЙЛЫ. ФАЙЛЫ БЕЗ ТИПА. СОЗДАНИЕ БАЗЫ ДАННЫХ. https://www.cyberforum.ru/ pascal/ thread266025.html Разработайте программу для работы с текстовым файлом, содержащую следующие пункты меню: − создание и заполнение файла; − просмотр содержимого исходного файла, − выполнение задания; − просмотр содержимого файла с результатами; − уничтожение файла; − выход. Все процедуры оформите в отдельный модуль. Задание: В предложении найти все пары слов, состоящих из одних и тех же букв.
Pascal числа-палиндромы... Всем доброго время суток)))помогите, пожалуйста, решить задачу.Сроки поджимают,времени совсем нет.Буду безгранично благодарна!!!!! Задача. На вход программе подается набор символов, заканчивающийся символом 0. Ноль в этом наборе единственный. Среди этих символов обязательно присутствуют другие десятичные символы. Напишите эффективную, в том числе и по используемой памяти, программу,...	Pascal одномерные массивы - серии Помогите пожалуйста написать программу!!)) очень надо Дано число К и массив размера N. Поменять местами первую серию массива с серией с номером K. https://www.cyberforum.ru/ pascal/ thread265830.html
Pascal Работа с процедурами и функциями Помогите решить двумя способами в pascal: F=g(1.7t,s)+g(3.7,s)-g(3s-1,st) g(a,b)=(3aa-b)/(модуль(a)-(bb-a) s=12.3 t=7.1 https://www.cyberforum.ru/ pascal/ thread265736.html	Pascal метод быстрой сортировки. написать программу метододом быстрой сортировки. направление сортировки - спадение размерность массива - двухмерный тип элемента - действительный разместить упорядоченные значения по строкам.
Pascal Найдите ошибку создать файл txt со строками ввести число 'к' и удалить последние 'к' строки var tx:text; filename:string; stroka:string; i,n,k:integer; begin writeln('введите k'); https://www.cyberforum.ru/ pascal/ thread265668.html	Pascal Тип запись.Ошибка. Известны оценки каждого из 20 учеников класса по 10 предметам.Найти фамилию одного из учеников имеющих наибольшую сумму оценок,наименьшую сумму оценок. Исправте,пожалуйста,ошибки. uses crt; const kil=20; n=10; Type ymnuy=record oc:arrayof byte; https://www.cyberforum.ru/ pascal/ thread265646.html
Pascal Обработка строк Pascal Во введенной пользователем исходной строке после всех цифр расставьте символ «$» и в конце строки допечатайте ее длину. Результат выведите на экран оператором write с одним аргументом.	Pascal Переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов, кроме строчных латинских букв, и значение false иначе https://www.cyberforum.ru/ pascal/ thread265565.html Логической переменной b присвоить значение true, если между литерами "а" и "z" нет иных символов, кроме строчных латинских букв, и значение false иначе. Вот пример выполненной программы: Вводим: akdjfhdjkfhb - true fhdkjhfkdjhf - false adfh&!&3#b - false Короче программа выдает true только тогда когда между a и z стоят латинские буквы.

anna80

2 / 2 / 0

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

Сообщений: 10

01.04.2011, 22:24

Массивы, курсовик - Pascal - Ответ 1511517

01.04.2011, 22:24. Показов 864. Ответов 3

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

Ответ

Pascal

uses crt;
const m=10; n=10;
var a:array [1..m,1..n] of integer; b:array[1..m] of integer;
    i,j,max,min,maxpos,minpos,s:integer;
begin
clrscr;
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(100);
i:=1;
while i<=m do
begin
for j:=1 to n do
Write (a[i,j]:5,' ');
writeln;
inc(i);
end;
WriteLn;
 
j:=1;
while j<=n do
      begin
maxpos:=1; minpos:=1;
max:=a[1,j]; min:=a[1,j];
for i:=1 to m do
         begin
if a[i,j]>max then begin max:=a[i,j];maxpos:=i; end;
if a[i,j]<min then begin min:=a[i,j];minpos:=i; end;
         end;
if (maxpos-minpos)<0 then
begin
s:=s+1;
b[s]:=j;
end;
inc(j);
     end;
for i:=1 to s do Write (b[i],' ');
ReadLn
end.

как-то так

Вернуться к обсуждению:
Массивы, курсовик Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

01.04.2011, 22:24

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

Численый методы для курсовик
Добавлено через 30 минут посмотри и помоги ! :) сделайте эту программу в ооп и разделе program...

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

Курсовик. Паскаль+БД на файлах прямого доступа
В институте "обрадовали", что придется делать курсовую на Паскале практически без подготовки. Язык...

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

	01.04.2011, 22:24

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

01.04.2011, 22:24

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

Даны массивы A(8), F(8),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формуле
uses crt; type mas=array of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr; ...

Курсовик по бд
Ребят дайте совет. База данных про библиотеку. Файл в access добавил. Не понимаю как сделать так...

курсовик
помогите пожалуйста ТЕМА:разборка html документов,зараннее спасибо!!!!!!

Курсовик
Помогите, пожалуйста, кто чем может! Через неделю сдавать, а у меня пусто! Работаю в Common Lisp....

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта 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 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

Наверх