|
|
| Другие темы раздела | |
|
Turbo Pascal Проверте пожалуйста работоспособность программы Graph
https://www.cyberforum.ru/ turbo-pascal/ thread579567.html Проверьте пожалуйста работает ли она (Должна строить Астроиду) Тк у меня она невкакую даже не запускается - wndows 7 .. в общем жду ответа заранее спасибо (ps астроида - x=B*cos(t)*cos(t)*cos(t); y=B*sint(t)*sint(t)*sin(t); uses graph,crt; var n,m,x,y,x1,y1:integer; t,x2,y2:real; begin n:=detect; initgraph(n,m,''); Writeln ('Ââåäèòå êîýôèöèåíò >0 b= '); readln (b); |
Запись в типизированый файл Turbo Pascal Нужно сделать запись в типизированый файл, обновления данных с определенной позиции. var f:file of integer; value,i:integer; begin random; assign (f,'f.dat'); rewrite (f); for i:=0 to 29 do |
|
Turbo Pascal Вычислить по стороне равностороннего треугольника его периметр и площадь
https://www.cyberforum.ru/ turbo-pascal/ thread579543.html Описать процедуру TrianglePS(a,P,S), вычисляющую по стороне a равностороннего треугольника его периметр P= 3*a и площадь S = a2 * корень квадратный3/4 (a-входной, P,S-выходные параметры).С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами. Заранее спасибо. |
Turbo Pascal Шифратор/дешифратор (буду благодарна всем, кто поможет) Шифратор. На вход поступает произвольная последовательность символов, заканчивающаяся символом$ (не входит в последовательность). Программа формирует на выходе зашифрованную последовательность, в которой коды всех исходных символов сдвинуты на фиксированную величину (величина сдвига определяется внутри программы). Дешифратор. На вход поступает... https://www.cyberforum.ru/ turbo-pascal/ thread579536.html |
|
Удалить из файла, используя прямой доступ к элементам файла, комплексные числа с чётными номерами Turbo Pascal Создать файл с именем COMP с записью таблицы комплексных чисел: порядковый номер, число, символ "+", число, символ "i". Например: 1 2,9+12,9i 2 6,6+14,1i 3 19,8+12,2i 4 16,3 + 0,9i Добавить в конец файла COMP три записи: |
Turbo Pascal Сформировать список абонентов телефонной сети сформировать список абонентов телефонной сети. список должен включать в себя фио абонента,его телефон,тариф которым он пользуется,стоимость минуты разговора(в долларах сша)(вводится автоматически в зависимости от тарифа)время разговора,сумма к оплате. если абонент пользуется бизнес тарифом,то к сумме надо прибавить 50 рублей(абонентская плата),а иначе к сумме прибавить 40 рублей. если время... https://www.cyberforum.ru/ turbo-pascal/ thread579494.html |
|
Turbo Pascal Составить рекурсивные программы для нахождение значений функций
https://www.cyberforum.ru/ turbo-pascal/ thread579489.html по могите пожалуста!составить рекурсивные программы для нахождение значений функций! 1) f(x,y)=x*y; 2) f(x,y)=x^y; 3) f(x,y)=x! |
Массив. Вывести индексы элементов массива, которые равны A Turbo Pascal 3)Задано значение A и массив B(N). Составьте программу, печатающую индексы элементов массива, которые равны A. |
| Turbo Pascal В приведенном фрагменте программы массив изменяется. Чему будут равны элементы этого массива? 1)В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: For I = 0 to 10 A = i For I = 1 to 11 A Чему будут равны элементы этого массива? 1)10 9 8 7 6 5 4 3 2 1 0 2) 11 10 9 8 7 6 5 4 3 2 1 3)10 9 8 7 6 5 6 7 8 9 10 4) 11 10 9 8 7 6 7 8 9 10 11 https://www.cyberforum.ru/ turbo-pascal/ thread579466.html | Turbo Pascal Каждый из интегралов вычислить по формуле прямоугольника, по формуле трапеции и по формуле Симпсона Каждый из интегралов вычислить по формуле прямоугольника, по формуле трапеции и по формуле Симпсона. Интегралы: ∫xe2xdx, пределы интегрирования от1 до 0; ∫(x3+3)/(x2+x-6)dx, пределы интегрирования от 1 до -2 https://www.cyberforum.ru/ turbo-pascal/ thread579454.html |
|
Turbo Pascal Оформить в виде процедуры сортировку массива Помогите пожайлуста!!!очень надо! я в виде процедуры никогда раньше не делал надо оформить в виде процедуры сортировку массива, в виде функции оформить средние арифметические. Записать в файл .txt - отрицательные элементы(перед возведением в квадрат) program Massiv; uses crt; var a:array of integer; |
Turbo Pascal Разработать программу с использованием динамических структур данных
https://www.cyberforum.ru/ turbo-pascal/ thread579413.html Разработать программу с использованием динамических структур данных Спроектировать алфавитный указатель.каждый компонент списка содержит слово и номер страницы на котором оно встречается.кол-во страниц от 1 до 10. Реализовать: 1)начальное формирование указателя; 2)добавление номеров страниц для слова, 3)сортировку списка по алфавиту по странице первого упоминания, 4)вывод предметного... |
|
0 / 0 / 2
Регистрация: 19.05.2012
Сообщений: 40
|
|
| 0 | |
Подпрограммы. Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел - Turbo Pascal - Ответ 305279019.05.2012, 15:38. Показов 13342. Ответов 1
Метки (Все метки)
1 Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел Заранее большое спасибо кто откликнется Вернуться к обсуждению: Подпрограммы. Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел Turbo Pascal
0
|
|
| 19.05.2012, 15:38 | |
|
Готовые ответы и решения:
1
Подпрограмма. Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел
Алгоритм Евклида нахождения наибольшего общего делителя (НОД) неотрицательных целых чисел
|
| 19.05.2012, 15:38 | |
| 19.05.2012, 15:38 | |
|
Помогаю со студенческими работами здесь
0
Расчет наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида Написать рекурсивную функцию нахождения наибольшего общего делителя методом Евклида. Составьте программу нахождения наибольшего общего делителя элементов
|