|
|
| Другие темы раздела | |
|
Pascal ABC Строки: Переписать в другую строку только цифры и отсортировать по возрастанию
https://www.cyberforum.ru/ pascalabc/ thread282563.html Уважаемые программисты, помогите с задачей: Дана строка текста. Известно, что в ней есть цифры и буквы. Переписать в другую строку только цифры и затем отсортировать ее по возрастанию. Мои мысли: program s; var s2,s1:string; k,i,j,l,max:integer; begin writeln('введите текст'); readln(s1); l:=0; for i:=1 to 10000 do begin |
Pascal ABC Уменьшить на величину последнего каждый из элементов матрицы Задание: Если среднее арифметическое элементов С1,С2,...,С7 больше минимального элемента матрицы, уменьшить на величину последнего каждый из элементов С1,С2,...,С7. Вот мой код: Program Zad431_11; uses crt; Type Mas=array of integer; var C:Mas; |
| Pascal ABC Цикл: по заданным значениям чисел a и b найти a^b Используя цикл с параметром(For) пожалуйста помогите с задачей: Написать программу, которая по заданным значениям чисел a и b находит a^b. В запросе указать допустимые значения этих переменных( если a - дробное, то b не может быть отрицательным) https://www.cyberforum.ru/ pascalabc/ thread282528.html |
Pascal ABC Убрать из файла все буквы «а»
https://www.cyberforum.ru/ pascalabc/ thread282517.html Символьный файл содержит различные буквы латинского алфавита. Убрать из этого файлы все буквы «а». пытался, так и не смог. Помогите пожалуйста |
|
Вычисление орпеделенного интеграла рекрсией Pascal ABC Программа правильно работает при n=1, а если его значение больше, то вычмсляет не правильно. Помогите пожалуйста найти ошибку. Скрин интеграла: http://upwap.ru/1461933 var m, n, step: byte; a, b: real; // пределы интегрирования S: real; // результат function f1(x: real; m: byte): real; begin f1 := power(x, m + 1) * ((ln(x) / (m + 1)) - (1 / (sqr(m + 1)))) end; |
Pascal ABC Строки. Вывести слова в обратном порядке
https://www.cyberforum.ru/ pascalabc/ thread282485.html Пожалуйста, помогите с задачей: Дана строка, состоящая из русских слов, разделённых пробелами. Вывести строку, содержащую эти же слова, но расположенные в обратном порядке. Я выделила слова в массивы, но возникли затруднения с из расположением в обратном порядке: uses crt; var str:string; s:array of string; |
| Pascal ABC Написать процедуру, которая будет выводить с помощью символов * равнобедренный треугольник заданных размеров Написать процедуру, которая будет выводить с помощью символов * равнобедренный треугольник заданных размеров. На вход дается единственное число - высота треугольника, она не превосходит 21. Помогите с задачей! https://www.cyberforum.ru/ pascalabc/ thread282472.html |
Дана матрица размера 5 x 10. Поменять местами строки1|столбцы2, содержащие минимальный и максимальный элементы матрицы. Pascal ABC Помогите написать программу пожалуйста. |
|
Pascal ABC Графика
https://www.cyberforum.ru/ pascalabc/ thread282389.html как убрать чёрные полосы? uses GraphABC; begin var x: integer; begin for x := 1 to 230 do begin |
Pascal ABC Вывод значения числа в десятичной системе счисления
https://www.cyberforum.ru/ pascalabc/ thread282345.html Исходная информация: натуральное число k, 1<k<37 и целое число А записанное в системе счисления с основанием k и заданное в формате string . Задание: Вывести значение числа A в десятичной системе счисления . Примечание: Значение числа A может не входить в диапозон возможных значений типа longint . Помогите...)) |
|
Pascal ABC Умножить первую строку матрицы на 5 используя подпрограмму умножения элементов строки массива на число,умножить первую строку массива на 5,а третью -на 2. -2 4 3 5 0 3 -3 -1 2 =А(заданный массив) 4 2 -1 0 5 -5 |
Pascal ABC Найти члены последовательности Используя операторы цикла с предусловием(While) и постусловием(Repeat),пожалуйста помоги решить задачу: При a > 0 задана последовательность an=(a^n)/n. Найти при eps >0 такое n, что an < eps. eps - это очень маленькое число ( например 0.0001), которое требуется ввести с клавиатуры. https://www.cyberforum.ru/ pascalabc/ thread282320.html |
|
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
|
|
| 25.04.2011, 16:32 | 0 |
Определить первое положительное нечетное число - Pascal ABC - Ответ 158616925.04.2011, 16:32. Показов 2087. Ответов 6
Метки (Все метки)
Ответ Вернуться к обсуждению: Определить первое положительное нечетное число Pascal ABC
1
|
|
| 25.04.2011, 16:32 | |
|
Готовые ответы и решения:
6
Дан массив. Определить первое положительное число среди нечетных строк массива
Опишите алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в файле
|
| 25.04.2011, 16:32 | |
| 25.04.2011, 16:32 | |
|
Помогаю со студенческими работами здесь
0
|