Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить, бьет ли слон фигуру Вот такая чудная задача...Требуется определить, бьет ли слон, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты слона и координаты другой фигуры. Не могу разобраться, потому что даже не знаю, как ходит слон!Помогите, пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread671990.html	С начала суток прошло n секунд. Выведите, что покажут часы Turbo Pascal Условие задачи Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями. С начала суток прошло n секунд. Выведите, что покажут часы. Код программы: program z1; var
Turbo Pascal Найдите число десятков в его десятичной записи https://www.cyberforum.ru/ turbo-pascal/ thread671975.html Вроде задача легкая, она звучит так...Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи). Вот код... program z1; var a,n:integer; begin readln(n); a:=(n mod 100);	Turbo Pascal Определить дату следующего дня Есть такая задача...Определить дату следующего дня, например: 31.12.1985 01.01.1986 29.04.1985 30.04.1985 Вот что-то тут не так... program z1; const Mday:array of Byte=(31,28,31,30,31,30,31,30,31,31,30,31); https://www.cyberforum.ru/ turbo-pascal/ thread671968.html
Процедуры Turbo Pascal Написать программу содержащую любой текст, самой главное что бы в программе была процедура, в конце процедуры должен быть переход обратно в основную программу.	Turbo Pascal Найти натуральные(и не только) числа Найти числа из множества чисел: а) натуральные числа б) числа,не являющиеся натуральными в)наименьшее натуральное число г)наибольшее натуральное число. Например а): вводим вручную: 5 -2 3.4 0 7 -14 6 вывод на экран: 5 7 6 https://www.cyberforum.ru/ turbo-pascal/ thread671956.html
Turbo Pascal Рекурсия: вычислить сумму знакопеременного ряда Всем доброго времени суток, у меня есть программа, мне нужно чтобы была такая же программа, но написана при помощи рекурсии... Заранее спасибо! Сама программа: (условие приложено в виде картинки) program labwork4; uses crt; var f1, f2, P, k, x, eps: Real; n:integer; sign: boolean; Begin https://www.cyberforum.ru/ turbo-pascal/ thread671926.html	Определите номер минимальной цифры в числе Turbo Pascal дано натурально число n.определите номер минимальной цифры,считая от начала числа,все цифры разные))заранее большое спасибо))
Turbo Pascal Вычислить выражение https://www.cyberforum.ru/ turbo-pascal/ thread671919.html \sum_{i=1}^{n}\frac{i}{{x}^{i}}	Turbo Pascal Общая сумма элементов строк матрицы https://www.cyberforum.ru/ turbo-pascal/ thread671907.html Вычислить общую сумму элементов тех строк матрицы,первый элемент которых положителен
Turbo Pascal Определить вид треугольника по трем углам Есть такая задача... Определить вид треугольника по трем углам (остроугольный, прямоугольный, тупоугольный, вырожденный, не существует). Я начал...но застрял...как дальше быть?Подскажите, пожалуйста program z1; var a,b,c:integer; begin write('Введите углы треугольника'); readln(a,b,c);	Turbo Pascal Найти максимальный элемент матрицы Найти максимальный элемент матрицы(любой 3x3). https://www.cyberforum.ru/ turbo-pascal/ thread671900.html

bladzher

2 / 2 / 0

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

Сообщений: 76

Переписать из массива А в массив В те элементы массива А,индексы которых являются числами Фибоначчи - Turbo Pascal - Ответ 3565331

15.10.2012, 21:49. Показов 2049. Ответов 2

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

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

Здравствуйте!
Я уже не знаю что делать,не получается

Вот сама задача:Переписать из массива А в массив В те элементы массива А,индексы которых являются числами фибоначчи 1,2,3,5,13,21,34... Число Фибоначчи определяется как сумма предыдущего и последующего числа.Например:8=3+5,13=5+8 ...

Вот код,но мне выдаёт ошибку:

Pascal

uses crt;
var mas,mas2,fib : array [1..maxint] of integer;
i,j,n : integer;
begin
n:=6;
for i:=1 to n do begin
if i=1 then fib[i]:=1
else if i=2 then fib[i]:=2
else fib[i]:=fib[i-2]+fib[i-1]
end;
 
writeln('числа фибоначи'); 
for i:=1 to n do write(fib[i]:4);
writeln;
 
writeln('случайные числа : ');
randomize;
for i:=1 to n do begin
mas[i]:=random(14);
write(mas[i]:4);
end;
writeln;
 
for i:=1 to n do begin
for j:=1 to n do begin
if mas[j]=fib[i] then mas2[i]:=mas[j];
end;
end;
writeln('переписываем числа в отдельный масив');
for i:=1 to n do write(mas2[i]:4);
writeln;
 
end.

Паскал пишет: error 96:too many variables

Заранне благодарен!

Вернуться к обсуждению:
Переписать из массива А в массив В те элементы массива А,индексы которых являются числами Фибоначчи Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.10.2012, 21:49

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

Переписать из массива А в массив В те элементы массива А, индексы которых являются степенями двойки (1,2,4,8,16,…)
Помогите пожалуйста, нужна программа и блок схема

Дано массив из 100 чисел. Напечатать те элементы массива, индексы которых являются степенями двойки
1.Дано массив из 100 чисел. Напечатать те элементы массива, индексы которых являются степенями...

Напечатать те элементы массива, индексы которых являются квадратами.
1. const n = ...; var s : array of integer; Напечатать те элементы массива s, индексы которых...

Напечатать те элементы массива, индексы которых являются степенями двойки
Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых...

	15.10.2012, 21:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.10.2012, 21:49

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

Напечатать те элементы массива, индексы которых являются степенями двойки
Напечатать те элементы массива, индексы Являются степенями двойки

Выведите на экран такие элементы массива, у которых индексы являются степенями двойки
Дан одномерный массив A целых чисел. Выведите на экран такие его элементы, у которых: 1) индексы...

Сформировать массив B из элементов массива A, индексы которых являются делителями числа C
народ, помогите с присваиванием значений одного массива другому и правильного вывода . вот...

Вычислить сумму и вывести на печать те его элементы массива, индексы которых являются степенями двойки
Дан целочисленный массив x(N) , N>15 вычислить сумму и вывести на печать те его элементы ,...

Наверх