Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти углы наклона ребер... https://www.cyberforum.ru/ turbo-pascal/ thread255813.html
Написать в Турбо Паскале :Заданы трехмерные векторы А.В.С, которые выходят из точки О(x,y,z) и есть ребрами тетраедра ОАВС. Найти углы наклона ребер к основанию тетраедра по формулам: https://www.cyberforum.ru/attachment.php?attachmentid=66842&stc=1&d=1299915788
Проблема в Паскале Turbo Pascal
Доброе время суток, помогите, пожалуйста. Во время исполнения программы у меня вылетает ошибка Функция SQRT с параметрами указных типов не найдена procedure Button1OnClick; var a,b,c,S,code:integer; P: string; begin val(edit1.text,a,code); val(edit2.text,b,code); val(edit3.text,c,code);
Turbo Pascal Программа на правильность имени по правилам Turbo Pascal Задание: Написать программу, которая будет вводить некоторые стринговые значения и определять, являеться ли каждое из них правильным именем, удольтворяющим требованиям Турбо Паскаля. Вот условия: Size для определения, находиться ли длина имени в допустимом диапозоне; First - для определения, начинается ли имя с допустимой литеры; Other - для определения, является ли допустимыми остальные... https://www.cyberforum.ru/ turbo-pascal/ thread255736.html Turbo Pascal Измерение скорости вывода на экран https://www.cyberforum.ru/ turbo-pascal/ thread255709.html
помогите написать программку плз: Измерить скорость вывода текста на экран в графическом режиме при использовании функций языка Турбо Паскаль
Найти количество парных чисел Turbo Pascal
Дано N целых чисел. Найти количество парных среди них. ТУ. В первой строке стандартного входного потока содержится N (N<1000) – количество чисел. В следующей строке через пропуск даны сами числа. В стандартный выходной поток вывести количество парных чисел.
Turbo Pascal Дано N цілих чисел. Знайти кількість парних серед них. Дано N цілих чисел. Знайти кількість парних серед них. ТУ. У першому рядку стандартного вхідного потоку міститься N (N<1000) – кількість чисел. У наступному рядку через пропуск дано самі числа. У стандартний вихідний потік вивести кількість парних чисел. https://www.cyberforum.ru/ turbo-pascal/ thread255698.html
Turbo Pascal работа на тему Записи Опишите запись с именем типа Data, содержащую информацию о сред- ней температуре в хранилище за 30 дней:  Номер месяца (тип integer)  Температура (тип real) Переменную, определяющую запись, назовите Zamer. Без помощи with При-свойте записи начальное значение: месяц «июль» и температура для первого дня 9,5. так ? type data = record mon_number:integer; ... https://www.cyberforum.ru/ turbo-pascal/ thread255684.html Turbo Pascal Сортировка чисел в файле
Дан файл, содержащий ненулевые целые числа. Создать новый файл, содержащий только положительные числа исходного файла (в том же порядке). Что получилось. Вот только не работает. Program File_text; uses crt; const f1name='f1.txt'; f2name='f2.txt'; var f1,f2:text; i:integer; stroka:string;
Turbo Pascal Определить среднюю длину слова каждого предложения https://www.cyberforum.ru/ turbo-pascal/ thread255681.html
Доброго времени суток. Проверить файл на наличие (с помощью ioresult), если файла нет, то создать его и ввести текст. Определить среднюю длину слова каждого предложения. Из слов не длиннее средней длины составить новые предложения, поставив в конце каждого свой знак конца предложения и записать их в новый файл. Вывести оба файла на экран
Turbo Pascal Определить войдет ли круг в треугольник https://www.cyberforum.ru/ turbo-pascal/ thread255667.html
1.надо определить войдет ли круг в равносторонний треугольник 2.определить войдет ли равностороннийтреугольник в круг
Вычислить значение выражения Turbo Pascal
Нужно решить в Паскале: (x+y/x+1)-(xy-12/34+X^2);
Turbo Pascal Меньшее из двух чисел заменить половиной их суммы, а большее – их удвоенным произведением https://www.cyberforum.ru/ turbo-pascal/ thread255663.html
Используя язык программирования Turbo Pascal. нужно нарисовать блок схему и составить программу решения задачи- ( Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее – их удвоенным произведением.)
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.03.2011, 13:22 0

Нахождение всех прямоугольников, площадь которых равна q и стороны выражены натуральными числами - Turbo Pascal - Ответ 1442670

12.03.2011, 13:22. Показов 5030. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var q,i,j:integer;
begin
clrscr;
write('q=');
readln(q);
for i:=1 to round(sqrt(q)) do
for j:=i to q div i do
if i*j=q then
writeln(i,'*',j,'=',q);
readln
end.


Вернуться к обсуждению:
Нахождение всех прямоугольников, площадь которых равна q и стороны выражены натуральными числами Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2011, 13:22
Готовые ответы и решения:

Нахождение всех прямоугольников, площадь которых равна q
Дано натуральное число q. Требется написать программу для нахождения всех прямоугольников, площадь...

Нахождение всех последовательностей 3 чисел сумма которых равна n
Одним из этапов задачи является нахождение всех последовательностей 3 чисел сумма которых равна n....

Найти все прямоугольники, площадь которых равна q и стороны выражены натуральными числами.
Исходное данное – натуральное число q, выражающее площадь. Найти все прямоугольники, площадь...

Определить на сколько квадратов, стороны которых выражены натуральными числами, можно разрезать данный прямоугольник
Стороны прямоугольника заданы натуральными числами М и N. Составить программу, которая будет...

1
12.03.2011, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2011, 13:22
Помогаю со студенческими работами здесь

Нахождение всех прямоугольников, площадь которых равна q
Дано натуральное число q. Требется написать программу для нахождения всех прямоугольников, площадь...

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а площадь равна s
Не имею понятия о том как это делать

Найти размеры всех прямоугольников, площадь которых равна натуральному числу S
Найти размеры всех прямоугольников площадь которых равна натуральному числу S, стороны которых...

Написать программу для нахождения всех прямоугольников, площадь которых равна q
Помогите решить задачу, пожалуйста. &quot;Дано натуральное число q. Требуется написать программу для...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru