|
|
| Другие темы раздела | |
|
Pascal Определите, может ли конь за один ход перейти с одного из этих полей на другое
https://www.cyberforum.ru/ pascal/ thread1486109.html Составить программу для решения предложенной задачи. Даны координаты двух полей шахматной доске. Определите, может ли конь за один ход перейти с одного из этих полей на другое. |
Pascal Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17*i*n2 + n3, i = 1,2,…,n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В (А≠В |
| Pascal Найти номер первого символа слова, содержащего максимальное количество букв «а» Составить программу для решения предложенной задачи. Дан текст. Слова текста разделены одним или несколькими пробелами. Найти номер первого символа слова, содержащего максимальное количество букв «а». https://www.cyberforum.ru/ pascal/ thread1486080.html | Pascal По заданной матрице смежности вершин неориентированного графа определить, является ли данный граф деревом По заданной матрице смежности вершин неориентированного графа определить, является ли данный граф деревом. Если является, то построить орграф, выбрав в качестве корня вершину с заданным номером m. Если не является, указать какое свойство деревьев выполняется. Исходные данные: количество вершин графа, матрица смежности вершин и номер вершины m. Результаты: - сообщение, является граф деревом или... https://www.cyberforum.ru/ pascal/ thread1486010.html |
|
Вывести на печать все числа, расположенные до первого минимального элемента последовательности Pascal Составила программу в паскале на эту задачу:Составить программу для решения предложенной задачи. Дана последовательность чисел. Вывести на печать все числа расположенные до первого минимального элемента. Program kj; type mas=array of integer; var a:mas; max,i:integer; Begin for i:=1 to 5 do a:=random(10); for i:=1 to 5 do |
Pascal Определить, можно ли привести весы в состояние равновесия Даны двухчашечные весы и набор гирек. На левую чашу весов положили взвешиваемый предмет весом K граммов. Можно ли привести весы в состояние равновесия, и если можно, то определите для каждой чаши весов, какие гирьки на нее для этого нужно положить. Имеющиеся гирьки разрешается класть на любую из чаш весов (каждая гирька имеется только в одном экземпляре, некоторые гирьки можно не использовать).... https://www.cyberforum.ru/ pascal/ thread1485964.html |
|
Pascal Калькулятор
https://www.cyberforum.ru/ pascal/ thread1485961.html В новой программе OpenCalculator появилась новая возможность – можно настроить, какие кнопки отображаются, а какие – нет. Если кнопка не отображается на экране, то ввести соответствующую цифру с клавиатуры или копированием из другой программы нельзя. Петя настроил калькулятор так, что он отображает только кнопки с цифрами x, y, z. Напишите программу, определяющую, сможет ли Петя ввести число N, а... |
Pascal Удаление элементов массива между нулями как избавиться от чисел между нулями 1 2 3 0 6 8 9 0 7 5 4 ? |
| Pascal Получение количества и произведения цифр числа Var x, a, b: integer; Begin Readln(x); A:=0; b:=1; While x > 0 do begin A:= a + 1; B:=b*(x mod 100); X:= x div 100; End; Writeln(a); writeln(b); https://www.cyberforum.ru/ pascal/ thread1485470.html |
Pascal Написать программу, которая выдает последовательность звуков с заданными частотами
https://www.cyberforum.ru/ pascal/ thread1485013.html Написать программу, которая выдает последовательность звуков с частотами 440,880, 1320, 1760 Гц, длительностью 1 сек. Народ, кинет кто похожие программы или примеры? Буду очень признателен |
|
Вычисление определенных интегралов с заданным шагом интегрирования Pascal Пробовал решить задачу Вычисление определенных интегралов с заданным шагом интегрирования несколькими методами: Метод прямоугольников uses crt; var i,n:integer; a,b,h,x,e,s1,s:real; bool:Boolean; function f(x:real):real; begin |
Pascal Составить блок схему к готовому коду type st = (left, middle, right); nat = 1..maxint; var m: nat; {m – число дисков} procedure move(n: nat; s1, sw, sk: st); {перемещение n дисков с s1 на sk} https://www.cyberforum.ru/ pascal/ thread1484886.html |
|
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
|
|
| 26.06.2015, 18:01 | 0 |
Сделать две очереди, так, чтобы в одной остались только символы, в другой — только числа - Pascal - Ответ 781119426.06.2015, 18:01. Показов 860. Ответов 9
Метки (Все метки)
Ответ
Да. И ещё в решении используется счётчик (Cnt) для подсчёта элементов очереди. С помощью него определяется, когда следует завершить цикл просмотра очереди.
Вернуться к обсуждению: Сделать две очереди, так, чтобы в одной остались только символы, в другой — только числа Pascal
1
|
|
| 26.06.2015, 18:01 | |
|
Готовые ответы и решения:
9
Обработать строку так, чтобы чтобы в ней остались только те слова которые содержат буквы и цифры
|
| 26.06.2015, 18:01 | |
| 26.06.2015, 18:01 | |
|
Помогаю со студенческими работами здесь
0
Как сделать так чтобы вводились только числа в Edit?
|