|
|
| Другие темы раздела | |
|
Pascal ABC Найти прямоугольник с большей площадью
https://www.cyberforum.ru/ pascalabc/ thread1098239.html Даны длины четырех отрезков - по две стороны первого и второго прямоугольника соответственно. Найти прямоугольник с большей площадью. Входные данные: Во входном потоке заданы четыре натуральных числа - длины четырех отрезков. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести '1' если площадь первого прямоугольника больше и '2' в противном случае. ... |
Найти минимальный и максимальный элементы из элементов матрицы с четными положительными значениями Pascal ABC Напишите программу,которая находит минимальный и максимальный элементы из элементов матрицы с четными положительными значениями и их индексы.Учтите,что таких элементов в матрице может и не быть |
|
Pascal ABC Вывести на экран строку матрицы, сумма значений элементов которой наибольшая
https://www.cyberforum.ru/ pascalabc/ thread1098141.html Напишите программу в паскале,которая выводит на экран строку матрицы,сумма значений элементов которой наибольшая |
Pascal ABC Добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива Снова здравствуйте. На сей раз мне нужно добавить в программу функцию, которая считает количество вхождений заданной буквы в к-ый элемент массива A(n) , то есть в к-ую строчку. Я что-то сделал, но опять неверно. program module; uses crt; type mas=array of string; procedure perepis(var f:text;ch:char;var a:mas;var n:integer); var s:string; begin n:=0; while not eof(f) do begin https://www.cyberforum.ru/ pascalabc/ thread1098128.html |
|
Ввести число от 0 до 1000. Определить количество цифр в числе Pascal ABC Ввести число от 0 до 1000. Определить количество цифр в числе =================================================== Ребята помогите решить,нужно сделать через case of |
Pascal ABC Правильно ли решена задача (Сколько часов проработала вся бригада) В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? s:=0; for i:=1 to N do s:=s+m+(i-1)/6; s:=0; i:=1; while i<=N do begin s:=s+m+(i-1)/6; Inc(i); end; s:=0; i:=1; repeat s:=s+m+(i-1)/6; Inc(i); until i>N; https://www.cyberforum.ru/ pascalabc/ thread1098088.html |
|
Pascal ABC Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от заданной точки
https://www.cyberforum.ru/ pascalabc/ thread1098047.html Дано множество квадратов. Вывести номера квадратов, центр которой расположен на расстоянии, большем D, от точки (15, 15), а площадь - 500. |
Pascal ABC Изменить программу с использованием подпрограмм (склад с лекарствами) помогите изменить код (используя подпрограммы)? вот задача: На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в специальной ведомости: наименования лекарственного препарата; количество; цена; срок хранения( в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат; сколько препаратов хранится на складе; какие препараты имеют срок хранения более трех... |
|
Pascal ABC Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа
https://www.cyberforum.ru/ pascalabc/ thread1097985.html Дона строка, изображающая целое положительное число. Вывести сумму цифр этого числа. |
Pascal ABC Найти номер первой из строк матрицы, содержащих равное количество положительных и отрицательных элементов
https://www.cyberforum.ru/ pascalabc/ thread1097983.html Дана целочисленная матрица размера M*N. Найти номер первой из ее строк, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких строк нет, то вывести 0. |
|
Pascal ABC Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная Program Zvezda; Uses GraphABC; begin setpencolor(clRed); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); |
Pascal ABC Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое. https://www.cyberforum.ru/ pascalabc/ thread1097980.html |
|
0 / 0 / 0
Регистрация: 21.01.2014
Сообщений: 15
|
|
| 0 | |
Определить есть ли в файле повторяющиеся числа, и если да, то выдать их - Pascal ABC - Ответ 579050016.02.2014, 21:49. Показов 1301. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Определить есть ли в файле повторяющиеся числа, и если да, то выдать их Pascal ABC
0
|
|
|
|
| 16.02.2014, 21:49 | |
|
Готовые ответы и решения:
1
|
| 16.02.2014, 21:49 | |
| 16.02.2014, 21:49 | |
|
Помогаю со студенческими работами здесь
0
Есть метод класса внутри , есть проверка. Если условие сходится то метод должен выдать указатель, иначе булевую переменную если ли в нем повторяющиеся числа, если да то выбрать их
|