|
|
| Другие темы раздела | |
| Turbo Pascal Вычислить произведение отрицательных элементов Р1 и произведение положительных элементов Р2. 28. В последовательности действительных чисел а1, а2,..., аn, есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведение положительных... p1:=1; p2:=1; for i:=1 to N do if a > 0 then p1:=p1*a else if a<0 then p2:=p2*a; if abs(p1) > abs(p2) then writeln('Модуль P1 больше') else if abs(p1) < abs(p2) then writeln('Модуль P2 больше')... https://www.cyberforum.ru/ turbo-pascal/ thread140728.html |
Turbo Pascal Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
https://www.cyberforum.ru/ turbo-pascal/ thread140711.html Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Большое СПАСИБО за помощь!!!!! https://www.cyberforum.ru/pascal/thread96154.html?uri=/pascal/thread96154.html |
|
Turbo Pascal Определить, сколько раз входит в нее группа букв abc.
https://www.cyberforum.ru/ turbo-pascal/ thread140720.html Дана строка. Определить, сколько раз входит в нее группа букв abc. uses crt; var stroka:string; i,k:integer; begin clrscr; write('Stroka='); readln (stroka); k:=0; for i:=1 to length(stroka) do begin |
Turbo Pascal Преобразовать последовательность по правилу
https://www.cyberforum.ru/ turbo-pascal/ thread140729.html 42. Даны две последовательности целых чисел а1, а2,..., аn и b1, b2,..., bn. Преобразовать последовательность b1, b2,..., bn по следующему правилу: если ai ≤ 0, то bi увеличить в 10 раз, в... for i:=1 to n do Read(a); WriteLn; for i:=1 to n do Read(b); WriteLn; for i:=1 to n do if a<=0 then b:=10*b else b=0; for i:=1 to n do Write(a); WriteLn; for i:=1 to n do... |
|
Вывести на экран все символы, расположенные внутри скобок. Turbo Pascal Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. ЗАРАННЕЕ ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!! for i:=1 to length(s) do if s='(' then break; inc(i); while s<>')' do begin Write(s); inc(i); end; |
Turbo Pascal Написать, какие буквы и сколько раз встречаются в тексте.
https://www.cyberforum.ru/ turbo-pascal/ thread140723.html 28. Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в этом тексте. Ответ должен приводиться в грамматически... да мне она тоже нужна |
|
Turbo Pascal Вывести на экран длину наибольшей последовательности цифр, идущих подряд.
https://www.cyberforum.ru/ turbo-pascal/ thread140707.html Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. Помогите решить uses crt; var s:string; i,l,max:integer; M:set of char; flag:boolean; begin clrscr; writeln('Введите строку ...'); readln(s); M:=; |
Напечатать те слова, которые встречаются в каждом из двух заданных предложений Turbo Pascal 42. Напечатать те слова, которые встречаются в каждом из двух заданных предложений.Помогите решить:) |
|
Turbo Pascal Список
https://www.cyberforum.ru/ turbo-pascal/ thread140621.html Связанные линейные динамические структуры Используя описание: список = ^ звено; звено = record элемент: тип элемента; следующий: список; end Написать программу, которая формирует список L... Вот ваша задача Type PNode=^Node; Node=record data:real; next:PNode; end; var Head,tmp:PNode; n,i:integer; |
Блок - схема Turbo Pascal var i,j,nT,nD,k,p,s,A,D,T:integer; Y: array of integer; R:real; l:text; function STEPEN(s,k:integer):integer; begin p:=s; i:=1; while... аленка блок схеьу долго делать..вот скидываю тебе программку..для построения блок схем!! Добавлено через 2 минуты https://www.cyberforum.ru/pascal/thread140681.html |
| Turbo Pascal Работа со строками Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз. Помогите кто чем может!!!!!!!! Зараннее СПАСИБО!!!!!!! https://www.cyberforum.ru/ turbo-pascal/ thread140716.html |
Turbo Pascal Создать однонаправленный список с упорядоченными по возрастанию элементами
https://www.cyberforum.ru/ turbo-pascal/ thread140721.html Fisierul text INPUT.TXT contine pe fiecareb linie cite un numar real. Scrieti un program, fara a folosi variabile de tip tablou, care creaza o lista unidirectionala ordonata crescator ce contine... wor10ok, родимый, ты форумы не попутал часом? можно переводец этого текста? |
|
7 / 7 / 0
Регистрация: 04.06.2010
Сообщений: 194
|
|
| 04.06.2010, 13:27 [ТС] | 0 |
Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. - Turbo Pascal - Ответ 77923904.06.2010, 13:27. Показов 6152. Ответов 5
Метки (Все метки)
Ответ
Можете паписать всю процедурку?Заранее спасибочки
 )))))))))))))))))
Вернуться к обсуждению: Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. Turbo Pascal
0
|
|
| 04.06.2010, 13:27 | |
|
Готовые ответы и решения:
5
Массив: Вычислить сумму чисел, порядковые номера которых являются нечетными числами. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. Вычислить сумму чисел, порядковые номера которых являются простыми числами. |
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 04.06.2010, 13:27 | |
|
Помогаю со студенческими работами здесь
0
Последовательность чисел. Вычислить сумму тех, порядковые номера которых- числа Фибоначчи. Дана последовательность натуральных чисел, за которой 0, вычислить сумму тех, номера которых - числа фибоначчи
|
Новые блоги и статьи
|
||||
|
Простая нейросеть на КуМир: Создание и обучение
EggHead 16.03.2025
Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .
|
Исполнитель Кузнечик в КуМир: Решение задач
EggHead 16.03.2025
Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .
|
Исполнитель Водолей в КуМир: Решение задач
EggHead 16.03.2025
Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .
|
Исполнитель Чертежник в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .
|
Исполнитель Робот в КуМир: Решение задач
EggHead 16.03.2025
КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
|
|
Исполнитель Черепаха в КуМир: Решение задач
EggHead 16.03.2025
Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .
|
Конвейеры данных с Apache Kafka
Javaican 16.03.2025
В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .
|
Deno против Node.js: Будущее JavaScript рантайма
run.dev 16.03.2025
За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .
|
SwiftUI или UIKit - что выбрать для нового приложения iOS?
mobDevWorks 16.03.2025
Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .
|
Docker: Руководство для начинающих по созданию первого приложения
Mr. Docker 16.03.2025
Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .
|
Наверх