|
|
Другие темы раздела | |
Turbo Pascal Дана действительная прямоугольная матрица Дана действительная прямоугольная матрица. Заменить нулями максимальные элементы каждой строки. https://www.cyberforum.ru/ turbo-pascal/ thread252830.html |
Проверка корректности введенного пароля Turbo Pascal Program abc; Uses Crt; Var I:string; Label loop; Begin Writeln('Введите пароль'); Read(I); loop; If I<>'password' then begin Writeln('Bad Password'); |
Turbo Pascal Поменять порядок следования цифр в числе на обратный Задачка вроде как простенькая, но я в pascal ничего не знаю, поэтому прошу помочь решить. Дано натуральное число n. Поменяйте порядок следования цифр в этом числе на обратный, выведите результат на экран. https://www.cyberforum.ru/ turbo-pascal/ thread252824.html | Turbo Pascal Перевод выражения на паскаль Есть два математических выражения 1) http://s003.***********/i202/1103/b4/e62a518600da.jpg 2) http://s004.***********/i207/1103/ea/c60777cc9d38.jpg вот их перевод на язык Паскаль 1) X=Exp(2*x*Ln(a))+Exp(-x*Ln(b))*cos(a+b)*x/x*1 2) R=Sqrt(Sqr(x)+b)-Sqr(b)*Exp(3*Ln(sin))*(X+a) верно ли они переведены ? https://www.cyberforum.ru/ turbo-pascal/ thread252808.html |
Вхождение одной строки в другую Turbo Pascal Помогите довести до ума программу:Вот условие Строки (цепочки символов латинских букв) создаются по следующему правилу. Первая строка состоит из одного символа – латинской буквы «А». Каждая из последующих цепочек создается такими действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите соответствует номеру строки (на i-м шаге пишется i-я буква алфавита),... |
Turbo Pascal Вычислить сумму элементов бесконечно убывающей знакопеременной последовательности
https://www.cyberforum.ru/ turbo-pascal/ thread252783.html Пусть x - некоторое число. Вычислить сумму элементов бесконечно убывающей знакопеременной последовательности {an}, где an=((-1)^ n *(2x)^n )/ n!, удовлетворяющих условию модуль an>e, n=1,2,... e=0,001. Определить кол-во слагаемых, вывести результат. Составить блок-схему, написать программу. |
Turbo Pascal Для n = 12 найти числа Фибоначчи
https://www.cyberforum.ru/ turbo-pascal/ thread252765.html используя прямую рекурсию, написать и выполнить программу: Для n = 12 найти числа Фибоначчи. Числа Фибоначчи: F(0) = 1, F(1) = 1 F(n) = F(n – 2) + F(n – l) |
какой текст будет выведен на экран Turbo Pascal подскажите как составить программу часть программы есть s:='Example' ;s0:='ABC'; Delete(s,1,3); writeln(s); задание к ней такое "какой текст будет выведен на экран" |
Turbo Pascal Дописать в список Дописать в список L после первого вхождения элемента Е список L1 и удалить из списка L все оставшиеся элементы Е, если таковые имеются. https://www.cyberforum.ru/ turbo-pascal/ thread252742.html |
Turbo Pascal списки
https://www.cyberforum.ru/ turbo-pascal/ thread252741.html Составить процедуру, определяющую вхождение списка L1 в список L2 и наоборот. Если один из списков длиннее, удалить лишние элементы из его начала. Используя процедуру, проанализировать пары списков М1и М2, N1 и N2. |
Turbo Pascal Постфиксная запись) короч надо написать программу которая будет инфиксную(обычную стандартную) запись выражения переделывать в постфиксную (когда все знаки стоят после операций). на ввод подается строка... выражение состоит из чисел и 4 знаков арифметических операций(сложение, умножение, деление и вычитание)...ну и конечно же скобки). желательно чтоб алгоритм и код были попроще).спасиб) пример: Выражение ((1 + 2)... |
Turbo Pascal Создать связанный список из записей, содержащих сведения о косметике (код товара, наименование товара, цена товара), реализовать операции со связанным Создать связанный список из записей, содержащих сведения о косметике (код товара, наименование товара, цена товара), реализовать операции со связанным списком: запись первым в список, удаление первого объекта из списка, просмотр всего списка, удаление объекта, следующего за указанным. https://www.cyberforum.ru/ turbo-pascal/ thread252724.html |
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
|
|
06.03.2011, 01:22 | 0 |
Нарисовать спасательный круг с полосками - Turbo Pascal - Ответ 142468006.03.2011, 01:22. Показов 2863. Ответов 1
Метки (Все метки)
Ответ
За заполнение произвольной замкнутой области отвечает процедура floodfill, которая имеет следующие формальные параметры: x, y - координаты точки, находящейся в пределах замкнутой области, z - цвет границы этой области. Т. е. в общем процедура имеет вид floodfill (x, y, z);
Шаблон заполнения (цвет, стиль заполнения) устанавливается с помощью процедур setfillstyle и setfillpattern. Вернуться к обсуждению: Нарисовать спасательный круг с полосками Turbo Pascal
0
|
06.03.2011, 01:22 | |
Готовые ответы и решения:
1
Запасной спасательный круг [Спасательный круг] скомпелировать 32 раз. код Нарисовать круг Нарисовать круг |
06.03.2011, 01:22 | |
06.03.2011, 01:22 | |
Помогаю со студенческими работами здесь
0
Нарисовать круг Нарисовать круг Нарисовать круг Нарисовать круг |