|
|
| Другие темы раздела | |
|
Turbo Pascal строку матрицы А,1 строку матрицы В умножить на R,где R-максимальный из элементов матриц А,В
https://www.cyberforum.ru/ turbo-pascal/ thread284515.html Даны матрицы А и В. 2 строку матрицы А,1 строку матрицы В умножить на R,где R-максимальный из элементов матриц А,В. Преобразованоше матрицы записать в файл Е. |
Turbo Pascal Найти площадь круга даны координаты xi,yi (i=1,..n) n точек (n<=100) A1,A2..An на плоскости. Найти площадь: круга с центром в начале координат,внутри и на границе которого не находится ни одна из заданных точек |
| Turbo Pascal в квадратной матрице вычислить сумму элементов в квадратной матрице вычислить сумму элементов, расположенных на одной горизонтали, вертикали с заданным элементов A(N,K). записать полученные значения вместо элементов матрицы не участвовавших в суммировании. https://www.cyberforum.ru/ turbo-pascal/ thread284494.html | Turbo Pascal рассматривается непустая строка содержащая не более 80 символов рассматривается непустая строка содержащая не более 80 символов. каждый символ строки может быть малой английской буквой цифрой или одним из знаков + - *. группой цифр будет называться такая совокупность последовательно расположенных букв которой непосредственно не предшествует и за которой непосредственно не предшествует и и за которой непосредственно не следует буква. аналогична определяется... https://www.cyberforum.ru/ turbo-pascal/ thread284492.html |
|
Закрасить эллипс Turbo Pascal Имееться эллипс разделённый линией ,нада закрасить разными цветами верхнюю и нижнюю части program Speed; uses crt,graph; Var gd,gm:integer; begin clrscr; detectgraph (gd,gm); initgraph (gd,gm,''); ellipse(320,240,0,360,200,221); {главный_эллипс} |
Turbo Pascal оператор case!
https://www.cyberforum.ru/ turbo-pascal/ thread284489.html Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N = 4к (где к — соответствующее частное); если остаток от деления на 4 равен 1 — N=4k+1; если остаток от деления на 4 равен 2, то N= 4k + 2; если остаток от деления на 4 равен 3, то N=4k+3. var N: byte; k:integer; begin writeln('вв число'); readln(N); for k:=1 to N do case N mod 4 do 0:N:=4*k; |
| Turbo Pascal Сколько тебе лет program Project3; {$APPTYPE CONSOLE} uses SysUtils; var i,a,b,c,v,q,w:integer; begin writeln ('kakoi sei4as god'); read (a); https://www.cyberforum.ru/ turbo-pascal/ thread284484.html |
Turbo Pascal фигуру нужно оживить за счет движения крыльев напишите пожалуйста программу: в файле "информ." увидите фигуру,эту фигуру нужно оживить за счет движения крыльев заранее спасибо |
|
Turbo Pascal Дан массив целых чисел положительных и отрицательных...
https://www.cyberforum.ru/ turbo-pascal/ thread284473.html Здравствуйте, помогите пожалуйста написать программу: Дан массив целых чисел положительных и отрицательных сформировать новый массив в котором сначала отрицательные числа затем положительные а нули отбросить |
Turbo Pascal Найти длину самого короткого слова напишите пожалуйста прогу и сразу к ней блок схему дана строка символов, состоящая из строк. найти длину самого короткого слова https://www.cyberforum.ru/ turbo-pascal/ thread284464.html |
|
Turbo Pascal организация вычислений во время ввода данных Известны данные о киличестве страниц в каждой из неескольких газет и в каждом из нескольких журналов. Число страниц в газете не более 16. Найти общее число страниц во всех журналах. (количество журналов неизвестно, но известно, что объем любого журнала превышает объем любой газеты) |
Turbo Pascal Каждый день в течении апреля автомобилист нарушает или не нарушает правила дорожного движения...
https://www.cyberforum.ru/ turbo-pascal/ thread284459.html Здравствуйте, помогите пожалуйста написать программу: Каждый день в течении апреля автомобилист нарушает или не нарушает правила дорожного движения, определить количество дней с начала апреля до 1 совершённого нарушения либо выдать сообщение о том что нарушения не было, вывести информацию о нарушении по запросу пользователя (1 - нарушил, 0 - не нарушил) |
|
1 / 1 / 0
Регистрация: 07.02.2011
Сообщений: 92
|
|
| 24.05.2011, 15:44 [ТС] | 0 |
Из данного текста предложения выбрать и напечатать только те символы,которые встречаются в нем только 1 раз - Turbo Pascal - Ответ 168528624.05.2011, 15:44. Показов 1471. Ответов 2
Метки (Все метки)
Ответ
1) Заводим две строки. В первую полностью считываем файл. Затем пускаем цикл по каждому символу, начиная от позиции символа до
конца строки пускаем ещё один цикл в этом цикле по оставшимся символам, если символ считанный во внешнем цикле не встретился во внутреннем то кидаем его во вторую строку. После завершения циклов мы получим желаемую последовательность во второй строке. 2) тот же приём только внешний цикл пускаем по элементам первой строки а внутренний по символам последний строки(потом можно з результирующей строки удалить одинаковые, или делать это сразу) 3)ну это совсем легко, попробуйте сами(читайте по одному символу если встретилась не буква и не цифра то вы считали слове слово=)) Вернуться к обсуждению: Из данного текста предложения выбрать и напечатать только те символы,которые встречаются в нем только 1 раз Turbo Pascal
0
|
|
|
|
| 24.05.2011, 15:44 | |
|
Готовые ответы и решения:
2
|
| 24.05.2011, 15:44 | |
| 24.05.2011, 15:44 | |
|
Помогаю со студенческими работами здесь
0
Выбрать из файла те символы, которые встречаются в нем только один раз Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз |