|
|
| Другие темы раздела | |
|
Pascal ABC Преобразовать введенное с клавиатуры дробное число в денежный формат
https://www.cyberforum.ru/ pascalabc/ thread699551.html Нужно составить программу,которая преобразует введенное с клавиатуры дробное число в денежный формат. это нужно сделать только с помощью div и mod. |
В каждой строке удалить текст после первого числа и изменённые строки записать в другой файл Pascal ABC Здравствуйте! Такая задачка. В файле есть текст. В каждой строке предложение. Текст содержит буквы, числа, знаки препинания. В другой файл записать следующее: В каждой строке удалить текст после первого числа и изменённые строки записать в другой файл, а также в конце добавить длину каждой строки и количество гласных и согласных букв. Помогите пожалуйста. Спасибо!!! |
| Pascal ABC Найти матрицу В и сумму элементов ее l-того столбца Дана матрица А=(aij)n*n. Матрица B получается из А вычеркиванием к-той строки. Найти матрицу В и сумму элементом его l-того столбца. где к=3, l=2 и А=(6.2 8.3 -4.9 -15.0) (5.1 -2.0 -3.1 8.6) (-1.2 3.1 7.4 8.0) (-9.0 4.1 -5.6 -1.0) (0.1 -4.0 -0.8 1.7). сделать программу так чтобы получился текстовый файл https://www.cyberforum.ru/ pascalabc/ thread699496.html |
Pascal ABC Создать файл, содержащий сведения об ассортименте игрушек в магазине
https://www.cyberforum.ru/ pascalabc/ thread699489.html Создать файл, содержащий сведения об ассортименте игрушек в магазине. Структура записи: название игрушки, цена, количество, возрастные границы, например, от 2 до 5 лет. Вывести на экран название игрушки (игрушек), которая по стоимости не превышает «х» р. Значение «х» вводится с клавиатуры. |
|
Записать последовательность символов в текстовый файл, вставляя символы перевода строки через каждые 40 символов Pascal ABC Дана последовательность символов, заканчивающаяся точкой и вводимая пользователем с клавиатуры. Необходимо записать её в текстовый файл, вставляя в неё символы перевода строки через каждые 40 символов. |
Pascal ABC Упорядочить по возрастанию те столбцы матрицы A, произведение элементов которых совпадает с одним из элементов массива B var a: array of real; var b: array of real; proiz:real; n,m,i,j,l,k,v: integer; buf: real; begin Writeln ('Количество элементов в массиве <=20'); Readln(l); Writeln ('Количество строк матрицы – целое число <=6'); https://www.cyberforum.ru/ pascalabc/ thread699368.html |
| Pascal ABC Нахождение числа, стоящего не на своем месте В диапазоне убывающих чисел найти число, стоящее не на своем месте (указать номер позиции числа). Программа должна быть написана на Pascal ABC Для примера: 150 120 140 130 110 (120 стоит не на своем месте, номер позиции 2) https://www.cyberforum.ru/ pascalabc/ thread699366.html |
Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел Pascal ABC Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел (в программе не использовать массивы), в Pascale. program project1; var a:char; s:integer; begin s:=0; repeat writeln('Введите символ'); readln(a); |
|
Pascal ABC Вычислить эффективность алгоритма быстрой сортировки
https://www.cyberforum.ru/ pascalabc/ thread699267.html Вычислить эффективность алгоритма быстрой сортировки. Исследовать, как изменяется эффективность алгоритма в зависимости от числа элементов сортируемого массива. Для этого заполнить таблицу: Количество элементов (N) 10 100 500 1000 1500 эффективность Вывод _____________________________________________________________________... |
Pascal ABC Попадание в мишень pascal
https://www.cyberforum.ru/ pascalabc/ thread699245.html Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень. Попыталась написать программу, но ни как не могу задать правильные ограничения, не могу понять в чем ошибка:( Program zad; var x,y,r:real; i:integer; begin i:=1; writeln('ââåäèòå ðàäèóñ r',r); |
|
Pascal ABC Вычислить произведение отрицательных элементов массива Составить* программу для вычисления f=c+(a+b)/a*b+1 A - наименьший элемент массива; B - произведение отрицательных элементов массива; C - количество элементов массива, меньших D ( ввести D). |
Pascal ABC Модуль Граф АВС Мельница Подскажите, пожалуйста, как ее разукрасить. А то получается вот эта ерунда https://www.cyberforum.ru/ pascalabc/ thread699192.html |
|
2 / 2 / 0
Регистрация: 27.07.2012
Сообщений: 18
|
|
| 17.11.2012, 05:11 | 0 |
Дана строка, состоящая из произвольного текста, слова разделены пробелами - Pascal ABC - Ответ 371094817.11.2012, 05:11. Показов 1895. Ответов 1
Метки (Все метки)
Ответ
используйте подпрограммы Pos,Length,sizeof для работы со строковыми переменными
Добавлено через 1 час 6 минут используйте подпрограммы Pos,Length,delete для работы со строковыми переменными схема приблизительно такая. 0. искомый номер слова inomer:=1; 1.берете строку и вычисляете её длину с помощью length 2. ищете первый пробел с помощью i:=pos(' ',stroka); 3. высекаете первое слово и запоминаете его в новой переменной slowo=copy(stroka,1,i-1); 4. запоминатете номер слова в некой переменной, пусть это будет jj:=1; это может быть номер цикла. 5. вычисляете длину слова и запоминаете его в переменной dlina:=length(slowo); 6. запоминаете эту длину в произвольную перменную для сравнения в следующем цикле dlina2:= dlina; 5.удаляете из строки первое слово delete(stroka,1,i); 6. начиная со второго цикла сравниваете длину предыдущего слова с текущим. if dlina2<dlina then inomer:=jj; ---повторяется цикл до исчерпания слова. Вернуться к обсуждению: Дана строка, состоящая из произвольного текста, слова разделены пробелами Pascal ABC
1
|
|
|
|
| 17.11.2012, 05:11 | |
|
Готовые ответы и решения:
1
|
| 17.11.2012, 05:11 | |
|
Помогаю со студенческими работами здесь
0
Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами
|