|
|
| Другие темы раздела | |
|
Pascal Помогите плиз с задачкой (одномерный массив)
https://www.cyberforum.ru/ pascal/ thread13735.html Создать одномерный массив A. Все его элементы, не равные нулю, переписать, сохраняя их порядок, в нача¬ло массива, а нулевые значения- в конец массива. Новый массив не заводить. :umnik: |
Pascal Напечатать состояние массива через T секунд :) Добавлено через 1 минуту 21 секунду дайте решение задачи плиз! В начальный момент в i-ом элементе массива записано число i (всего N элементов). Каждую секунду числа сдвигаются в следующую ячейку (из i-ой в i+1-ую), а из N-ой - в первую. Напечатать состояние массива через T секунд. Во вхоном файле записаны два числа - N (1≤N≤100) и T (0≤T≤30000). |
|
Pascal Рекурсия: вывести все подмножества множества А
https://www.cyberforum.ru/ pascal/ thread13701.html С клавиатуры вводится множество А, состоящее из символов число которых не превышает 10 (1 символ= 1 элемент). Используя рекурсию (желательно) написать программу, которая выдаст на экране все подмножества множества А. Помогите, пожалуйста... Очень срочно!!! |
Pascal Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
https://www.cyberforum.ru/ pascal/ thread13695.html Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры. Решить нужно двумя способами используя цикл с предусловием и используя цикл с постусловием. Заранее спосибо! |
|
Pascal Поменять местами самый большой элемент с самым маленьким. Нужно решить задачу по паскалю... задача звучит так: Дана последовательность х1,х2,…,хn. Поменять местами самый большой элемент с самым маленьким. |
Pascal Марков и Тьюринг
https://www.cyberforum.ru/ pascal/ thread13679.html люди помогите написать интерпритаторы для машины Тьюринга и Алгорифмов Маркова |
| Pascal Организовать запись массива в файл Требуется создать массив, записи которого содержат следующую информацию: -о себе(ФИО, дата рождения, место проживания, место работы; -если мужчина вывести: --семейное положение (женат, не женат); --служба в армии (служил, не служил. -если женщина: --семейное положение (замужем, не замужем); --дети (если есть, то вывести год рождения, пол). Отсортировать полученный массив по алфавиту,... https://www.cyberforum.ru/ pascal/ thread13660.html |
Лабиринт из массива Pascal Вот есть такая задача:Лабиринт задан матрицей a(m,n), состоящей из 0 и 1, причем а=0 и a=0. Разработать рекурсивную процедуру нахождения пути из клетки а в a. Путь должен состоять из элементов, равных 0. Ходить можно только по вертикалям и горизонталям Как я думал сначала использовать так называемое "правило правой(левой) руки" для прохождения лабиринта, но стал вопрос о том как например... |
| Pascal Рекурсия: вычислить сумму членов бесконечного ряда с заданной точностью Пользуясь рекурентной формулой вычислить сумму членов бесконечного ряда с заданной точностью e, |x|<1 :wall: S=\sum_{i=1}^{\infty}\left(-1 \right)^{n-1}\,\cdot\,\frac{2n-1}{\left(2n \right)!}\,\cdot\, x^{2n} https://www.cyberforum.ru/ pascal/ thread13620.html |
Pascal Найти среди максимальых элементов массива минимальный
https://www.cyberforum.ru/ pascal/ thread13613.html Помогите Пожалуйста Решить 2 задачи в Паскале. Вот собственно: 1. Даны массивы A и B, состоящие из целых чисел. Поставить сначала четные,а потом нечетные элементы.(Условие: Одномерный массив) 2. Дан целочисленный массив размером MxN. Найти среди максимальых элементов массива минимальный.(Двумерный массив) Каждая задача в отдельной программе. Заранее СПАСИБО!!!:):):) :help::help::help: |
|
вычисление длин радиусов вписанной в треугольник и описанной возле треугольника окружностей Pascal ПОмогите пожалуйста решить задачу, совсем паскаль не знаю, нужно очень срочно Составьте алгоритм и программу для вычисления длин радиусов вписанной в треугольник и описанной возле треугольника окружностей. Длины сторон треугольника равны a = 13 см., b=12 см., c = 17 см. Формулы: R=abc/4S r=S/P p=(a+b+c)/2 S=корень из p*(p-a)(p-b)(p-c) |
Pascal Метод Гаусса Нужно запрограммировать метод Гаусса,я как только начинаю понимать-пытаюсь решить и тут же сразу запутываюсь https://www.cyberforum.ru/ pascal/ thread13582.html |
|
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 24.10.2008, 16:00 | 0 |
Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка - Pascal - Ответ 6448724.10.2008, 16:00. Показов 7546. Ответов 24
Метки (Все метки)
Ответ Если надо снизу, то inc(i) замени на dec(i) это то же что i:=i-1; Если надо ближайшее к данному числу, то это посложнее. Можно по разному, первое что пришло в голову: Код
[SIZE=2]
uses crt;
var N,i:integer;
begin
clrscr;
Write('N=');
readln(n);
i:=1;
repeat
inc(N,i); [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]увеличиваем число на 1[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if N mod 35=0 then [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2] begin
writeln('Это число ',N);
readln;
exit;[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2] end
else
inc(i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если нет, увеличиваем счетчик[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]dec(N,i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]уменьшаем число на 2[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if N mod 35=0 then
begin
writeln('Это число ',N);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2] readln;
exit;[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2] end
else inc(i);[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если нет, опять увеличиваем счетчик, и все повторяем +3, -4, +5, -6[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]until (N mod 35=0); [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заканчиваем прграмму когда делится[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]readln
end.
[/SIZE]
Вернуться к обсуждению: Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка Pascal
0
|
|
| 24.10.2008, 16:00 | |
|
Готовые ответы и решения:
24
Определить ближайшее нечетное число меньше заданного числа N, которое делится на 13 без остатка
Пользователь вводит два числа. Определить, делится одно число на другое без остатка. Если нет, предложить ближайшее |
| 24.10.2008, 16:00 | |
| 24.10.2008, 16:00 | |
|
Помогаю со студенческими работами здесь
0
Найти все целые числа b, для которых а делится без остатка на b^2 и не делится без остатка на b^3 Вывести все целые числа В, для которых А делится без остатка на В*В и не делится без остатка на В*В*В
Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6 Определить ближайшее нечетное число меньше заданного числа N, которое делится на 15 с остатком 6 |