Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =i* аi-1 + аi-2 https://www.cyberforum.ru/ turbo-pascal/ thread255453.html 27. Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =i* аi-1 + аi-2 , где а1 = а2 = 1, i=3,4,5, …	Turbo Pascal Вычислить сумму введённых чисел Пожалуйста помогите составить программу, которая будет запрашивать число до тех пор, пока не будет введено первое число, кратное 7 или количество чисел превысит 10, и вычислить сумму введённых чисел.
Turbo Pascal Оставить в файле только фразы, в которых нет запятых Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых. https://www.cyberforum.ru/ turbo-pascal/ thread255438.html	Turbo Pascal Нарисовать два графика на экране Построить график. https://www.cyberforum.ru/ turbo-pascal/ thread255432.html
Turbo Pascal Определить сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера В коллекции нумизмата не более чем 90 монет всех возможных достоинств.Определить сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера. Заранее спасибо.	Turbo Pascal Форматы чисел, циклы https://www.cyberforum.ru/ turbo-pascal/ thread255401.html Программа запрашивает кол-во чисел у пользователя. Находит сколько пар с одинаковыми знаками он в вел(т.е 7 8 9 8 -4 -5 будет 2 пары положительных и 1 отрицательная) Зарание спасибо
Turbo Pascal Вычисление факториалов числа оформить как рекурсивную функцию. 1. Составьте программу вычисления числа сочетаний по формуле: C(n,m)= n!/m! . Вычисление факториалов числа оформить как рекурсивную функцию. https://www.cyberforum.ru/ turbo-pascal/ thread255386.html	Определить длину содержащейся в тексте максимальной серии символов, отличных от латинских букв Turbo Pascal Для заданного текста определить длину содержащейся в нем максимальной серии символов, отличных от латинских букв (использовать множество). uses crt; const z=; var i,l,n,k,dl:integer; st,sb,max:string; begin clrscr;
Turbo Pascal Найдите количество чисел кратных К, встречающееся во всех массивах Даны два целочисленных массива B(M) и C(L). Найдите количество чисел кратных К, встречающееся во всех массивах. Если таких чисел нет, выдайте соответствующее сообщение. https://www.cyberforum.ru/ turbo-pascal/ thread255382.html	Turbo Pascal Сортировка выбором Поможіть:" Розробити програму, що забезпечує сортування вхідного файлу методом вибору з підрахунком кількості порівнянь і перестановок. Вхідний файл текстовий, по одному числу в рядку. Максимальна кількість чисел – 1000. Діапазон допустимих значень від 0 до 65000. Результуючий файл також текстовий. В першому його рядку записується кількість порівнянь, а другому – перестановка , з третього і до... https://www.cyberforum.ru/ turbo-pascal/ thread255372.html
Сделать перемешение по стрелкам меню Turbo Pascal Помогите доработать меню. Дали задание сделать перемешение по стрелкам, ну и выбор по энтеру. Перемещение сделал, а как сделать вход в пункты без goto или if не знаю. Год назад как-то делал. Забыл все. вот часть этого меню uses graph,crt; var gd,dm,a,b,k:integer; key:char;	Turbo Pascal Вычислить сумму произведений массивов для всех значений i помогите пожалуйста решить задачу!!! Даны 2 массива X=(12.3,15.4,27.2,14.5,81.4, -9.3), Y=(14.1,17.5,9.4,32.1,18.3,5.7). Вычислить сумму произведений XiYi для всех значений i. https://www.cyberforum.ru/ turbo-pascal/ thread255354.html

SunEclipse

232 / 181 / 104

Регистрация: 19.03.2010

Сообщений: 949

Как избавиться от ошибки 202. - Turbo Pascal - Ответ 1440061

11.03.2011, 15:05. Показов 1011. Ответов 5

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
function vich(n:integer):real;
begin
if n=1 then vich:=1
else vich:=vich(n-1)+vich(n-2);
end;
var n:integer;
begin clrscr;
write('Vvedite n= ');
readln(n);
write('Otvet= ',vich(n):0:0);
readln;
end.

Народ, подскажите пожалуйста, как избавиться от ошибки 202.

Вернуться к обсуждению:
Как избавиться от ошибки 202. Turbo Pascal

Следующий ответ

Лучшие ответы (1)

Сообщение: #1440303

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.03.2011, 15:05

Готовые ответы и решения:

Как избавиться от ошибки 202?
Массив m(3,3) задается случайным образом из интервала от -2 до 2. Решить уравнение: y =...

Lazarus ошибки SIGSEGV и 202 при вызове процедуры
Если у кого-нибудь есть какие-нибудь мысли, прошу высказывать. любая толика по делу будет полезна,...

Как избавиться от ошибки
Добрый вечер всем. Пытаюсь поработать с БД на C#. Установил System.Data.SQLite и добавил в...

Как избавиться от ошибки?
Тип ошибки: Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D) Login failed for user 'sa'....

	11.03.2011, 15:05

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.03.2011, 15:05

Помогаю со студенческими работами здесь

Как избавиться от ошибки н/д в цикле
Есть список, нужно маркировать члены этого списка в соответствии со списком на другом листе буквой...

И как избавиться от этой ошибки?!
Так объявлены классы: class body; class command { public: *** list...

Как избавиться от ошибки в WebBrowser?
Всем привет! Не подскажите ка избавиться от вот этой ошибки?

Как избавиться от ошибки компоновщика?
Как избавиться от ошибки компоновщика в vs2008? Сначала вылезала в мфц проектах, а теперь уже...

Наверх