![]() |
|
Другие темы раздела | |
Pascal Кодировка в Паскале Здравствуйте. Столкнулся с такой проблемой. Есть маленькая программа, которая создает файл и записывает туда целые числа program test; uses crt; var f: file of integer; i: integer; BEGIN... вместо цифр иероглифы Естественно, файл же типизированный var f: file of integer Хотите его читать, сделайте текстовый var f:Text; https://www.cyberforum.ru/ pascal/ thread1852184.html |
Pascal Действие при закрытии программы Всем добра... Недавно баловался с кодом, который мог проверять был ли нажат "крестик" в программе. А вот именно, когда я его удалил он мне понадобился, да я даже в толком в него не вчитывался...... скорее всего, вы про pascal ABC, в котором есть модуль Events и метод OnClose(); |
Pascal Упорядочить массив сортировкой вставками const n = 100; vаr х:аrrау of rеаl; Упорядочить массив х по неубыванию, используя следующий алгоритм сортировки: сортировка вставками. Пусть первые и элементов массива уже упорядочены по... https://www.cyberforum.ru/ pascal/ thread1851519.html | Pascal Функция у которой на входе два массива и на выходе массив (Длинная арифметика) Значит задача такая: сделать функцию которая возвращает сумму двух чисел. Задачу я решаю, но без функций, но попалась задача немного сложнее, в которой есть основная часть, так еще и нужно прибавлять... https://www.cyberforum.ru/ pascal/ thread1851495.html |
Pascal Работа с массивом записей, содержащих сведения о сотрудниках Создать массив записей, содержащих сведения о сотрудниках университета. Структура записи: фамилия и инициалы работающего, год рождения; название кафедры; стаж работы, должность, оклад.... https://www.cyberforum.ru/ pascal/ thread1851526.html | Pascal Решение ребусов Решите следующие числовые ребусы: УДАР + УДАР = ДРАКА БУЛОК + БЫЛО = МНОГО КОКА + КОЛА = ВОДА ПОДАЙ — ВОДЫ = ПАША ТРИ + ТРИ + ТРИ = ДЫРА, причем (Ы + Ы) : Ы = Ы Здесь... (Ы + Ы) : Ы = Ы Это значит Ы=2 https://www.cyberforum.ru/ pascal/ thread1851673.html |
Заменить в строке слова, не содержащие "а", словом с наибольшим числом вхождений буквы "а" Pascal Дан текст, слова которого отделяются друг от друга пробелами. Выбрать в тексте слово с наибольшим числом вхождений буквы «а», и заменить этим словом все слова, не содержащие буквы «а». Если эта буква... var s,s1,s2:string; i,j,k,mx:byte; begin writeln('Введите текст малыми русскими буквами, слова разделены прбелами'); readln(s); //ищем слово с макс. кол. букв а mx:=0; i:=1; while... |
Pascal Поменять местами предпоследний элемент массива с элементом, номер которого задан Поменять местами предпоследний элемент массива с элементом, номер которого задан. Определить в полученном массиве номер и значение последнего минимального элемента и умножить на него все элементы... type t = integer; //Здесь можете написать любой, какой заблагорассудится var mas:aRRay of t; min_i, tmp:t; n, i:byte; begin writeln('Введите количество элементов массива:'); ... https://www.cyberforum.ru/ pascal/ thread1852233.html |
Выполнить заданные действия с одномерными массивами Pascal Контрольная 11 класс!с задачей! ПАСКАЛЬ 2. Найти ошибки в программе, которая удваивает чётные элементы одномерного массива. Исправленный вариант программы сохраните в файле с расширением... program mas1; Var b: array Of Integer; i: Byte; Begin For i := 1 to 10 Do Begin ReadLn(b); if (Not Odd(b)) then b := b * 2; |
Pascal Определить сумму положительных элементов и максимального элемента.
https://www.cyberforum.ru/ pascal/ thread1851951.html Задан массив P(i=1,4 j=1,7) определить сумму положительных элементов и максимального элемента. Написать без процедуры и функции определить сумму положительных элементов и максимального элемента. Сумма положительных+максимальный элемент? |
Pascal Помогите исправить ошибку в логическом выражении
https://www.cyberforum.ru/ pascal/ thread1852287.html Нельзя преобразовать тип real к boolean. Как исправить ошибку. until (y1 = 0) or (b - a) < e(вот здесь выдает ошибку) program fun; const e=exp(-6*ln(10)); function f(x: real): real; begin ... Использовать скобки (приоритет and выше, чем у сравнения, получается бессмыслица: ((y1=0) and (b-a))<e): ... or (b-a<e) |
Pascal Проверить теорему Ферма для x, y, z из интервала [1..100)
https://www.cyberforum.ru/ pascal/ thread1851680.html Теорема Ферма утверждает, что не существует решения в целых положительных числах уравнения x^n+y^n=z^n при n>2. Напишите программу, которая проверяла бы это утверждение при заданном n для всех x, y и... Щас сделаю Добавлено через 9 минут var x, y, z, n:byte; function pow(a, n:integer):integer; begin if (n = 1) then pow:= a else |
CAPITAL OF ROCK!
![]() 1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
|
||||||
17.11.2016, 12:17 | 0 | |||||
Среди элементов каждой строки матрицы, отличных от данного B, найти наибольший элемент и его номер - Pascal - Ответ 978024817.11.2016, 12:17. Показов 1206. Ответов 1
Метки (Все метки)
![]() Решение
Вернуться к обсуждению: Среди элементов каждой строки матрицы, отличных от данного B, найти наибольший элемент и его номер Pascal
0
|
17.11.2016, 12:17 | |
Готовые ответы и решения:
1
Найти наибольший элемент каждой строки матрицы
|
17.11.2016, 12:17 | |
Помогаю со студенческими работами здесь
0
Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом на главной диагонали Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали.
|
Новые блоги и статьи
![]() |
||||
TypeScript и оператор infer: разбиваем Composite-типы на части
stackOverflow 17.02.2025
В TypeScript композитные типы занимают особое место - это сложные типы данных, которые создаются путем объединения более простых типов. К ним относятся массивы, объекты, кортежи (tuples),. . .
|
Mapped-типы в TypeScript
stackOverflow 17.02.2025
TypeScript предоставляет развитые средства для типизации данных, и одним из наиболее гибких инструментов являются mapped-типы. По сути, mapped-тип или сопоставленный тип - это способ создания нового. . .
|
Как вернуть энтузиазм
Uswer 17.02.2025
Приветствую тебя читатель.
Сначала небольшая предыстория.
Лет 5-6 тому назад появилась у меня идея автоматизации некоего процесса на работе. А так как я уже много лет увлекаюсь (не путать с. . .
|
Оператор satisfies в TypeScript: как он работает и где применять
stackOverflow 17.02.2025
Оператор satisfies - одна из наиболее полезных возможностей TypeScript, позволяющая проверять типы значений без изменения их исходного типа. В отличие от других операторов типизации, satisfies дает. . .
|
Почему могут не шифроваться русские символы в Java
Wired 17.02.2025
При разработке на Java нередко возникают сложности с шифрованием русских символов. Эта проблема особенно актуальна для разработчиков, создающих программное обеспечение для русскоязычной аудитории. . . .
|
Отличия ОС для x86_64 и ARM
Wired 17.02.2025
На данный момент сосуществуют две основные архитектуры процессоров - x86_64 и ARM. Эти архитектуры имеют принципиально разные подходы к организации вычислений и обработке данных, что накладывает. . .
|
Многопоточность в Python: как использовать Thread
bytestream 17.02.2025
Поток выполнения (thread) - это наименьшая последовательность инструкций, которая может управляться планировщиком операционной системы. Представьте себе, что ваша программа - это книга, а потоки -. . .
|
Как воспроизвести Race Condition в Python
bytestream 17.02.2025
В многопоточном программировании существует множество подводных камней, и одним из самых коварных является состояние гонки (Race Condition). Этот термин описывает ситуацию, когда результат выполнения. . .
|
Ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS"
bytestream 17.02.2025
Каждый разработчик рано или поздно сталкивается с ситуацией, когда при запуске проекта Node. js неожиданно выскакивает ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS". Это. . .
|
Ошибка pip Python "AttributeError: module 'lib' has no attribute 'OpenSSL_add_all_algorithms'"
bytestream 17.02.2025
При разработке на Python частенько сталкиваешься с разными сюрпризами, но ошибка AttributeError: module 'lib' has no attribute 'OpenSSL_add_all_algorithms' - это что-то особенное. Знаете, это как. . .
|