|
|
Другие темы раздела | |
Pascal ABC Перестановка строк матрицы
https://www.cyberforum.ru/ pascalabc/ thread1335123.html Пожалуйста, помогите решить их :с Очень надо. Зачет. Я уже в отчаянии P.S. Возможно, как-то криво вставил фотографии |
Pascal ABC Определить новое множество, равное пересечению элементов множеств А и Б По Паскалю задача №1: Даны два множества А и Б с одним и тем же базовым типом. Определить новое множество, равное пересечению элементов символа А и Б. задача №2: В заданном тексте определить слово наибольшим вхождением заданного символа. |
Pascal ABC Выяснить какому из отрезков принадлежит данная точка x
https://www.cyberforum.ru/ pascalabc/ thread1335091.html Пусть числовая прямая разбита на произвольные отрезки точками a1, a2, ..., an. Выясните, какому из отрезков принадлежит данная точка x. Сделал программу, но есть маленькие синтаксические ошибки при вводе разных цифр. Помогите исправить:wall: Program qq; const n=5; Type mass=array of integer; Var count1, count2, i: integer; x:real; A:mass; |
Pascal ABC обьясните, почему не работает эта функция, когда в конце стоит нечетное число символов, которые нужно заменить function replace(s, m, k: string): string; //1 строка - входная, 2 - то,что нужно заменить, 3 - на что заменить var i, i1, j: integer; b: array of string; h: boolean; begin for i := 1 to length(s) do begin h := false; //изначально h ложно https://www.cyberforum.ru/ pascalabc/ thread1334964.html |
Pascal ABC Вычислить значение выражения не могу разобраться с условием. нужна помощь! |
Pascal ABC Составить блок схему к готовому коду
https://www.cyberforum.ru/ pascalabc/ thread1334883.html Составить блок-схему к программе: uses crt;const nmax=15;var a:array of real; y:array of real; m,n,i,j,k:byte; s,sv,sm:real;begin randomize; repeat write('Количество строк матрицы до ',nmax,' m=');read(m);until m in ;repeat write('Количество столбцов матрицы до ',nmax,' n=');read(n);until n in ;writeln('Исходная матрица А:'); sm:=0;for i:=1 to m do begin for j:=1 to n do begin ... |
Pascal ABC Ввести с клавиатуры одномерный массив из 5 целых чисел и вывести количество ненулевых элементов
https://www.cyberforum.ru/ pascalabc/ thread1334859.html Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. Перед вводом каждого элемента должна появляться подсказка с номером. Рекомендуемый вид программы: После ввода каждого числа нажмите <ENTER> A = 12 A = 0 A = -3 A = 1 A = 0 В массиве 3 ненулевых элемента |
Pascal ABC Вычислить сумму последовательности, из элементов Вычислить сумму последовательности, из элементов аk вычисляемых по формуле, с точностью е = 0.001. Выяснить сколько нужно слагаемых для достижения заданной точности. Значение k=1,2,… 10. аk = sin(x+1)/10k |
Pascal ABC Расшифруйте пожалуйста порядок действий (переведите на русский язык) для объяснения
https://www.cyberforum.ru/ pascalabc/ thread1334831.html var i,j,n,k:integer;d:real; a:array of real; a1:array of real; c:array of string; begin writeln('n'); readln(n); for i:=1 to n do readln(a); a1:=0; for i:=2 to n do begin a1:=a+a1;write(a1:6:2);writeln; end; |
Pascal ABC Рекуррентные соотношения Составив соответствующее рекуррентное соотношение, вычислить значения выражения: ((x-2)(x-4)...(x-2n))/((x-1)(x-3)...(x-2n+1)) https://www.cyberforum.ru/ pascalabc/ thread1334798.html |
Pascal ABC Переменные-флаги Найдите ближайшее к заданному число, меньшее его, обладающее следующими свойствами: является произведением 2,3,5 и 7 в различных целых степенях. |
Pascal ABC Палиндром Нужен код ,который определяет все палиндромы от 0 до 9999 У меня есть код который определяет от 1000 до 9999 Что нужно добавить или исправить? Var a,b,c,d,n,k:integer; begin K:=0; for n:=0 to 9999 do begin a:=n div 1000; https://www.cyberforum.ru/ pascalabc/ thread1334778.html |
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
|
|
0 | |
Вывести на экран все символы встречающиеся в этом тексте более одного раза - Pascal ABC - Ответ 700967919.12.2014, 16:06. Показов 2982. Ответов 1
Метки (Все метки)
Ввести текст в виде символьной строки. Вывести на экран все символы встречающиеся в этом тексте более одного раза
Вернуться к обсуждению: Вывести на экран все символы встречающиеся в этом тексте более одного раза Pascal ABC
0
|
19.12.2014, 16:06 | |
Готовые ответы и решения:
1
Удалить из строки все символы встречающиеся более одного раза Вывести все символы встречающиеся в тексте 2 раза. Массив: Вывести на экран числа, встречающиеся в столбцах более одного раза Вывести все элементы массива, встречающиеся более одного раза |
19.12.2014, 16:06 | |
19.12.2014, 16:06 | |
Помогаю со студенческими работами здесь
0
Вывести на экран все слова, встречающиеся более 1 раза Закодировать символы, встречающиеся в тексте подряд более чем два раза Символы, встречающиеся в тексте подряд более чем два раза, закодировать Процедуры и функции: символы, встречающиеся в тексте подряд более чем два раза, закодировать |