|
|
| Другие темы раздела | |
| Pascal Переставляя строки и столбцы, добиться того чтобы наибольший элемент оказался в верхнем левом углу Дана вещественная матрица размером 7x4. Переставляя её строки и столбцы , добиться того чтобы наибольший элемент (один из них) оказался в верхнем левом углу. Помогите решить пожалуйста!!!! https://www.cyberforum.ru/ pascal/ thread1831794.html |
Вывести в текстовый файл значение произведения главной диагонали двумерного массива Pascal Дан действительный двумерный массив A элементы которого расположены в текстовом документе. Выведите в текстовый файл значение произведения главной диагонали. Помогите решить пожалуйста!!!! |
|
Pascal Найти сумму квадратов всех целых чисел от A до B включительно с использованием рекурсии
https://www.cyberforum.ru/ pascal/ thread1831787.html Даны два целых числа A и B (A<B). Найти сумму квадратов всех целых чисел от A до B включительно. Помогите решите пожалуйста через рекурсию. |
Pascal Ошибка: "Нельзя изменять значение переменной цикла внутри этого цикла" "Нельзя изменять значение переменной цикла внутри этого цикла". Выдает вот такую ошибку в 37 строчке. Помогите исправить Program massiv2; const n_st=5; const n_cl=4; var a:array of integer; m:array of integer; i,j,p,q,t,b,c:integer; begin https://www.cyberforum.ru/ pascal/ thread1831516.html |
|
Pascal Найти два наименьших числа последовательности .....Помогите,пожалуйста,составить блок-схему: Дана последовательность из целых чисел,которые вводятся по одному.За последним числом вводится ноль.Найти два наименьших числа последовательности |
Pascal Записи: вывести номер группы, в которой больше всего студентов
https://www.cyberforum.ru/ pascal/ thread1831371.html Всем привет, нужна программа, которая выводит номер группы в которой больше всего студентов, релизация через записи. Я не знаю что делать уже. Вот моя последняя попытка. uses crt; type anceta = record fam : string; nom : byte; pol : char; oc : record o5 : byte; o4 : byte; o3 : byte; |
|
Pascal Поиск повторяющихся гласных букв в тексте
https://www.cyberforum.ru/ pascal/ thread1831369.html Всем привет, нужно написать программу, которая выводит на экран повторяющиеся гласные буквы, с помощью множества. У меня она почему то ничего не выводит вообще. Помогите, пожалуйста. var M: set of char; s : string; i,j,p : integer; Begin clrscr; M:=; write('Введите текст: '); |
Среднее арифметическое положительных элементов матрицы Pascal В данном программе считается среднее арифметическое положительных элементов матрицы. Помогите найти ошибку,дело в том что отбираются все положительные элементы,но делятся они не на количество положительных а на количество всех елементов матрицы,включая негативных.Собвственно как сделать что-бы делилось тоже только на количество положительных элементов? Program v21; const MAX = 12; type ... |
|
Pascal Определить сколько строчных и прописных букв "M" и знаков "=" встречается в файле
https://www.cyberforum.ru/ pascal/ thread1830857.html Определить сколько строчных и прописных букв "M" и знаков "=" встречается в файле. Вывести строки, в которых эти символы отсутствуют. Помогите, что не так program test; var F:text; str:string; i, kf,ki,kn,ks:integer; |
Pascal Нахождение совершенных чисел в массиве
https://www.cyberforum.ru/ pascal/ thread1830767.html В общем суть программы: в массиве есть два совершенных числа, найти их произведение. (Совершенные числа- числа, сумма всех делителей(кроме самого числа) которого равна самому числу - 6;28). Массив я задал вручную, и вот процедурка по нахождению заветного произведения Procedure PrSov; begin for i:=1 to 10 do begin for n:=1 to masA do if (masA mod n) = 0 then s:=s+n; n:=n+1; if s=masA then... |
|
Протабулировать функцию у=5+х, на интервале [-6;6] с шагом 3. Pascal Протабулируйте функцию у=5+х, на интервале с шагом 3. |
Pascal Вычислить значение выражения
https://www.cyberforum.ru/ pascal/ thread1830281.html Дано a, b, c. Вычислить y=\frac{\sin a^3+\cos a^3}{2a}-15.2a Если y>0, вычислить значение выражения: \ \ R=\sqrt{P_1^2+P_2^2+2P_1P_2} |
 6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
|
|
| 22.10.2016, 18:47 | 0 |
В центре экрана нарисовать квадрат и выполнить его диагональную штриховку - Pascal - Ответ 967568822.10.2016, 18:47. Показов 1668. Ответов 3
Метки (Все метки)
Ответ
enoott, Турбо Паскаль и Паскаль АBC - это разные диалекты языка Паскаль.
Вернуться к обсуждению: В центре экрана нарисовать квадрат и выполнить его диагональную штриховку Pascal
0
|
|
| 22.10.2016, 18:47 | |
|
Готовые ответы и решения:
3
Нарисовать с помощью отдельных точек синусоиду зеленого цвета в центре экрана на всю ширину экрана |
| 22.10.2016, 18:47 | |
| 22.10.2016, 18:47 | |
|
Помогаю со студенческими работами здесь
0
|