|
|
Другие темы раздела | |
Pascal Смоделировать вращение пропеллера(картинка внутри) линия вращается вокруг своего центра https://www.cyberforum.ru/ pascal/ thread106462.html |
Pascal Опишите, используя структуру записи, сведения о книгах, находящихся в домашней библиотеке (автор,название,год издания, кол-во страниц). Опишите, используя структуру записи, сведения о книгах, находящихся в домашней библиотеке (автор,название,год издания, кол-во страниц). составьте программу, определяющую: Название книг, изданных после 1990 г и имеющие менее 330 страниц. Помогите решить? Вобще не понимаю как с записями решать задачи |
Pascal Дети сидят в круге и считалочкой удаляют к-го, потом смыкают круг Здравствуйте. Пожалуйста напишите код программы... Она состоит в том, что дети сидят в круге (кол-во детей задаётся параметром) и щиталочкой удаляют к-го(параметром, вводимый пользователем), потом смыкают круг. Продолжают делать всё пока не останется один. Далее на экран выводятся изначальные номера ребят. Вот пытался создать список сам... к сожалению толку с него не вышло(( Низнаю что... https://www.cyberforum.ru/ pascal/ thread106432.html |
Pascal Реализовать шесть разных сортировок
https://www.cyberforum.ru/ pascal/ thread106431.html Народ помогите с 6 сортировками 1. Сортировка вставками. 2. Сортировка выбором. 3. Сортировка Шелла. 4. Сортировка Бэтчера. 5. Сортировка Хоара. 6. Шейкер-сортировка. заранее спасибо |
Pascal Вычислить: 1/22 + 1/42 + ... + 1/(2n) n 1. Дано натуральное n. Вычислить: 1/22 + 1/42 + ... + 1/(2n) n . |
Pascal ветвеления 1. Турист за день прошел А км. До обеда он шел t часов и прошел 20 км. Еще t2 часа он шел после обеда. Когда скорость туриста была выше: до обеда или после обеда? 2. Скорость на участке дороги должна быть не выше 30 км/ ч. Определить, нарушил ли водитель правила дорожного движения3 3. . Каждое утро майор Знаменский заходит в тир и делает 5 выстрелов через плечо. Если он набирает 50 очков, то... https://www.cyberforum.ru/ pascal/ thread106414.html |
Pascal Какова среднемесячная зарплата работника? привет всем огромное спасибо кто помогает разобраться с моими задачами. помогите еще с двумя пожалуйсто: 1. Цех по ремонту бытовой техники имеет ежедневно прибыль Р, с которой платит налог 70%. Из оставшейся доли прибыли 30% идет на развитие производства, а остальное – на заработную плату 8 работникам. Какова среднемесячная зарплата работника? 2. Моторная лодка движется по течению реки и... https://www.cyberforum.ru/ pascal/ thread106412.html |
Нужно переделать программу с процедурой. Pascal program pr1; var a:array of integer; i,j:integer; procedure stolbec(i:integer;j:integer); var g,s:integer; begin g:=0; writeln('введите номер столбца'); readln(s); for i:=1 to 3 do for j:=1 to 3 do |
Pascal Написать программу, которая подсчитывает количество слов начинающихся на заданную букву в заданной символьной строке.
https://www.cyberforum.ru/ pascal/ thread106399.html Задание: Написать программу, которая подсчитывает количество слов начинающихся на заданную букву в заданной символьной строке. |
Pascal Найти номер минимального элемента массива в приведенной программе const n=6; var a:array of integer; i,imn: byte; s: integer; begin randomize; https://www.cyberforum.ru/ pascal/ thread106396.html |
В одномерном массиве, состоящем из п вещественных элементов, вычислить: Pascal 1. Сжать массив, удалив из него все элементы, величина которых находится в ин¬тервале . Освободившиеся в конце массива элементы заполнить нулями. |
Pascal Рекурсия: нахождение суммы ряда
https://www.cyberforum.ru/ pascal/ thread106379.html Нужно найти сумму ряда 1)рекурсией и 2) суммированием в цикле. Сделал, но явно не не правильно: Var z:real; c,n:Byte;Ps1,ps2,x,F:real; Function Sum1(n:Byte):real; Function A (n:Byte;x:real):real; Begin if n=0 Then A:=1 Else A:=A(n-1,x)*(x*x)/(n*n); End; |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
19.03.2010, 14:08 | 0 |
Сгенерировать и вывести на экран массив - Pascal - Ответ 60866119.03.2010, 14:08. Показов 1101. Ответов 5
Метки (Все метки)
Ответ
Вероятно исходная матрица 9х9, иначе дополнительный столбец или диагональ некуда впихнуть.
Добавлено через 38 минут А этот вариант вообще страшный Вернуться к обсуждению: Сгенерировать и вывести на экран массив Pascal
0
|
19.03.2010, 14:08 | |
Готовые ответы и решения:
5
Сгенерировать и вывести на экран одномерный массив Сгенерировать и вывести на экран массив 10x10 из нулей и единиц Сгенерировать и вывести на экран массив с 10 случайных чисел в диапазоне от -100 до 100. Цикличный сдвиг массива влево на 1 и вывод на экран Сгенерировать и вывести на экран массив |
19.03.2010, 14:08 | |
19.03.2010, 14:08 | |
Помогаю со студенческими работами здесь
0
Написать фрагмент программы, позволяющей сгенерировать и вывести на экран одномерный массив из 50 целых чисел в диапазон Сгенерировать последовательность чисел, вывести ее на экран и занести в одномерный целочисленный массив Сгенерировать массив целых чисел и вывести на экран Сгенерировать и вывести на экран массив из целого числа n случайных чисел |