|
|
| Другие темы раздела | |
|
Пользователь вводить числа до нуля. Надо найти сумму всех неотрицательных четных, количество четных кратных 3, сумму и кол-во трехзначных Pascal ABC Пользователь вводить числа до нуля. Надо: 1. Подсчитать сумму все отрицательных четных чисел 2. Подсчитать количество четных чисел кратных 3. 3. Подсчитать сумму и количество трехзначных нечетных... uses crt; var a,s1,k,s3,k3:integer; begin writeln('Введите последовательность челых чисел, окончание ввода 0'); s1:=0;//сумма отрицательных четных k:=0;//количество четных, кратных 3... |
Серия команд Pascal ABC Как перевести на язык Паскаль ABC вот такую задачу: K:=6; Z:=2*K-10; выбор при K=-1;Z:=4-K; при K=2; Z:=K+Z; при K=6; Z:=5-Z; все Z:=Z-3; Найти H. var K,Z:integer; begin K:=6; Z:=2*K-10; case K of -1: Z:=4-K; 2: Z:=K+Z; 6: Z:=5-Z; end; Z:=Z-3; |
| Pascal ABC тестирование программы черным и белым ящиками я просто не пойму что то как эту программу протестировать uses crt; const MAXn = 7000; { размерность таблицы } { формирование типа хеш-таблицы } type arr = record mas: string; {... https://www.cyberforum.ru/ pascalabc/ thread1079887.html | Pascal ABC Задан массив A, состоящий из 10 целых элементов. Вывести все элементы массива, которые идут после первого максимального элемента Задан массив A, состоящий из 10 целых элементов. Вывести все элементы массива, которые идут после первого максимального элемента. cloned, смотрите тему "Вывести на экран те элементы заданного массива, которые расположены после максимального элемент". Там уже всё объяснено. https://www.cyberforum.ru/ pascalabc/ thread1079846.html |
|
Pascal ABC Найти разность младшего и старшего разрядов
https://www.cyberforum.ru/ pascalabc/ thread1080021.html Найти разность младшего и старшего разрядов вводимого натурального числа Помогите составить код... program lowhigh; var n, r: integer; begin repeat write('n = '); readln(n); if n < 1 then writeln('No natural number, reenter.') until n >= 1; r := n mod 10; |
Pascal ABC Определить смысл данного фрагмента алгоритма Нам нужно определить смысл данного фрагмента алгоритма: i:=1; p:=1; нц пока i<=10 ввод а если a mod 2=1 то p:=p*a; все i:=i+1; кц так получается будет? не совсем, проверку на нечетность и умножение нужно заключить в цикл, и еще пара ненужных строк: program zadanie13; var i, a: integer; p: real; begin p := 1; {while... |
| Pascal ABC Массив, небольшую ошибку исправить Смотрите, смог сделать, чтобы по побочной диагонале были, а надо по главной!!! срочно маленькая помощь))) вот задание: Дано два двумерных массива х(n1хm1) ,y(n2хm2). Cформировать массив z((n1+... program p7; uses CRT; const n1 = 5; m1 = 4; n2 = 3;m2 = 3; var x: array of integer; y: array of integer; z: array of integer; i, j: integer; https://www.cyberforum.ru/ pascalabc/ thread1080025.html |
Pascal ABC Комбинаторика (исправить ошибку) Здравствуйте. Игровое поле для игры "Кошки-Мышки" представляет собой совокупность кружков, некоторые из которых соединены линиями. Первый игрок играет за "кошек", второй - за "мышек". В процессе... |
|
Pascal ABC Используя три различных цикла, трижды протабулировать функцию
https://www.cyberforum.ru/ pascalabc/ thread1079808.html Нужна помощь. Используя три различных цикла, трижды протабулировать функцию. uses crt; function f(k,a:integer):integer; begin if odd(k) then f:=k-a else f:=k*k+1 end; var k,a:integer; begin write('Введите целое число a='); read(a); |
Комбинаторика (исправить ошибку) / Pascal ABC Pascal ABC У продавца и покупателя имеется неограниченное кол-во монет достоинством (1,2,5,10,20,50,100,200,500 к примеру). Покупатель купил товар на сумму n. Hужно найти минимальное кол-во монет, которые будут... работает для n до 1000 (если нужно больше то меняйте K) включительно: const m=9; c:array of integer=(1,2,5,10,20,50,100,200,500); const K=1000; var a:array of integer; ... |
|
Pascal ABC Вычислить значение выражения
https://www.cyberforum.ru/ pascalabc/ thread1079812.html Как записать на язык Паскаль ABC такую задачу: X:=1; Y:=2; если x<5 то Y:=3*X-Y; X:=X/2; иначе X:=Y-X; если Y=6 то Y:=X-2; все все Я попробовала сделать так: Program seria1; var x,y: real; Begin x:=1; y:=2; if x<5 then begin y:=3*x-y; x:=x/2 end |
Pascal ABC Описать объект: "комплексное число"
https://www.cyberforum.ru/ pascalabc/ thread1080009.html Описать объект, ИМЕЮЩИЙ НЕОБХОДИМЫЕ ПОЛЯ, конструктор, деструктор и перечисленные методы. Разработать текстовую программу для иллюстраций работы с объектом. Объект:комплексное число. Поля:... |
|
0 / 0 / 0
Регистрация: 24.06.2013
Сообщений: 31
|
|
| 0 | |
Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В - Pascal ABC - Ответ 568608024.01.2014, 09:07. Показов 1233. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В Pascal ABC
0
|
|
| 24.01.2014, 09:07 | |
|
Готовые ответы и решения:
1
Сформировать одномерный массив, каждый элемент которого равен максимальному элементу соответствующего столбца матрицы Минимальный элемент k-й строки равен максимальному элементу k-го столбца
|
| 24.01.2014, 09:07 | |
|
Помогаю со студенческими работами здесь
0
|
Новые блоги и статьи
|
||||
|
Исследование байт-кода Python: подключаем дизассемблер
stackOverflow 19.02.2025
Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .
|
Исследование байт-кода Python: компиляторы против интерпретаторов
stackOverflow 19.02.2025
Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .
|
Comprehensions в Python - что это такое?
stackOverflow 19.02.2025
Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .
|
Python правда такой медленный? Развенчиваем миф о медлительности
stackOverflow 19.02.2025
Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .
|
Динамические формы в Flask
stackOverflow 19.02.2025
Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
|
|
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS
stackOverflow 19.02.2025
Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .
|
где chromium хранит пароли и как их обнулить в пожарном варианте
jigi33 19.02.2025
Where is the chromium browser stores passwords for a sites
где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте
(see screenshot)
|
howto get access to external internet resources with kinit
jigi33 19.02.2025
Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер
(see screenshot)
|
Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi
stackOverflow 19.02.2025
В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .
|
ENV (environments) valid paths in linux
jigi33 19.02.2025
Environments paths
(see screenshot)
|