Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определить произведение элементов массива под побочной диагональю ПОМОГИТЕ РЕШИТЬ ЛЮДИ ДОБРЫЕ ОЧЕНЬ СРОЧНО Дан двумерный массив А .Если все элементы на главной диагонали этого массива простые числа,определить произведение элементов массива под побочной диагональю.простое число-это число,которое делится только на себя и на единицу.оформить в виде основной программы и... https://www.cyberforum.ru/ pascalabc/ thread766858.html Определить, верно ли, что данное слово начинается и заканчивается на одну и туже букву Pascal ABC
Дано слово.Верно ли что оно начинается и заканчивается на одну и туже букву?
Pascal ABC Определить, является ли введенная буква русского алфавита гласной https://www.cyberforum.ru/ pascalabc/ thread766855.html
1. Определить, является ли введенная буква русского алфавита гласной. 2. Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент), длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и выводила площадь круга.
Pascal ABC Цикл с параметром for: Найти все трехзначные числа, которые делятся на n Прошу помочь решить задачи к зачету, в паскале не селен к сожалению 1. Дано вещественное число A и целое число N (>0). Найти A 2. 2. Найти все трехзначные числа, которые делятся на n https://www.cyberforum.ru/ pascalabc/ thread766854.html
В каждой строке матрицы заменить последний отрицательный элемент нулем Pascal ABC
В каждой строке матрицы заменить последний отрицательный элемент нулем. Вот начало программы uses crt; var a: array of integer; n, j, i: integer; begin writeln('vvedite masiv'); read(n); for i := 1 to n do
Pascal ABC Замена значений на абсолютные https://www.cyberforum.ru/ pascalabc/ thread766811.html
Помогите заменить значения компонентов на их абсолютные в той области матрицы, в которой сумма окажется меньшей( с выводом результирующей матрицы на экран) program Zadanie3_Massiv; uses crt; const n=3; a:array of real=((0.0,8.5,-1.3),(0.0,5.41,0.0),(9.0,-6.1,0.0)); var S1, S2: Real; i, j: Integer; procedure InputOutput; begin Write('Исходная матрица');
Pascal ABC Гонщик принял участие в 6 заездах.При условии хранения информации о скорости в каждом заезде в записи определить среднюю скорость гонщика. Гонщик принял участие в 6 заездах.При условии хранения информации о скорости в каждом заезде в записи определить среднюю скорость гонщика. (Пожалуйста с коментариями) https://www.cyberforum.ru/ pascalabc/ thread766794.html Получить еще 3 множества как результат объединения, пересечения, разности исходных Pascal ABC
Сформировать 2 множества из М и N элементов случайным образом распечатать.Получить еще 3 множества как результат объединения,пересечения,разности исходных.(Пожалуйста с коментариями)
Pascal ABC Графика. Красный флажок https://www.cyberforum.ru/ pascalabc/ thread766731.html
3.Написать программу, которая рисует на экране флажок красного цвета. Кто нибудь помогите)=)
Pascal ABC Написать программу, которая выводит на экран изображение светофора https://www.cyberforum.ru/ pascalabc/ thread766729.html
2.Написать программу, которая выводит на экран изображение светофора. Кто нибудь помогите)=)
Вывести на экране узор из 5 концентрических окружностей различного диаметра и цвета Pascal ABC
4.Написать программу, которая вычерчивает на экране узор из 5 концентрических окружностей различного диаметра и цвета. Кто нибудь помогите)=)
Pascal ABC Нарисовать на экране 2 различных треугольника https://www.cyberforum.ru/ pascalabc/ thread766723.html
5.Написать программу, которая вычерчивает на экране 2 различных треугольника (один закрашенный, другой нет). Кто нибудь помогите)=)
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
20.01.2013, 13:29 0

Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи - Pascal ABC - Ответ 4029059

20.01.2013, 13:29. Показов 1317. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
function Fib(n:integer):boolean;
var z,k:integer;
begin
z:=1;k:=0;
while z<n do
 begin
  z:=z+k;
  k:=z-k;
 end;
Fib:=z=n
end;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of byte;
    m,n,i,j,imn,imx:byte;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(21)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
m:=0;
for i:=1 to n do
if Fib(a[i,i]) then
 begin
  m:=m+1;
  b[m]:=i;
 end;
if m=0 then write('На главной диагонали нет чисел Фибоначчи')
else
 begin
  writeln('Номера столбцов, где на главной диагонали числа Фибоначчи');
  for i:=1 to m do
  write(b[i],' ');
 end;
end.


Вернуться к обсуждению:
Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначи Pascal ABC
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.01.2013, 13:29
Готовые ответы и решения:

Составить одномерный массив из номеров строк матрицы, где на побочной диагонали совершенное число
дан двумерный массив a. составить одномерный массив из номеров строк, где на побочной диагонали совершенное число. оформить как процедуру...

Составить одномерный массив из номеров строк матрицы, в которых по главной диагонали стоят нули
Ввести с клавиатуры квадратную матрицу. Составить одномерный массив из номеров строк этой матрицы, в которых по главной диагонали стоят...

Создать массив номеров столбцов с отрицательными элементами на главной диагонали
составить программу. без констант! Дана действительная квадратная матрица порядка n. Создать массив номеров столбцов с отрицательными...

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.01.2013, 13:29
Помогаю со студенческими работами здесь

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный массив A. Составить одномерный массив из номеров столбцов...

Составить одномерный массив В из номеров столбцов, все элементы которых отрицательны
Помогите написать программу. Дана матрица А(m,n). Составить одномерный массив В, в котором В(j) (j=1,2,...,N) равно номерам столбцов, все...

Составить одномерный массив из номеров столбцов матрицы, элементы которых упорядочены по возрастанию
Дана вещественная матрица размером NxM. Составить одномерный массив из номеров столбцов ,элементы которых упорядочены по возрастанию

Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел
Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел. Помогите,...

Составить одномерный массив из элементов главной диагонали матрицы
Дан массив A(10,10). С элементами главного диагоналя этого массива Надо составить одномерный массив

0
Новые блоги и статьи
Linux API: Полное руководство
hw_wired 08.02.2025
Linux API – это низкоуровневый программный интерфейс, обеспечивающий взаимодействие пользовательских приложений с ядром операционной системы. Он включает набор системных вызовов, библиотечных функций. . .
Асинхронное программировани­­­­­е и эмуляция async/await в C (СИ)
hw_wired 08.02.2025
Язык программирования C, несмотря на свой возраст, предоставляет неплохие средства для реализации асинхронных операций, позволяя создавать эффективные решения для обработки параллельных задач. В. . .
Как сгенерировать случайное число в указанном диапазоне в JavaScript
bytestream 08.02.2025
В JavaScript генерация случайных чисел основана на детерминированном алгоритме, который создает последовательность псевдослучайных значений. Встроенный метод Math. random() возвращает псевдослучайное. . .
Как получить список всех таблиц в PostgreSQL
bytestream 08.02.2025
PostgreSQL предлагает несколько методов для получения списка таблиц в базе данных. Наиболее распространенный способ - использование системного каталога pg_tables, который содержит информацию обо всех. . .
Java Spring для начинающих
bytestream 08.02.2025
Spring Framework - это универсальное решение для создания корпоративных Java-приложений. Он предоставляет комплексную программную и конфигурационную модель для современных приложений на Java. Spring. . .
Асинхронное программировани­­­­­­е и async/await в Visual Basic
bytestream 08.02.2025
В основе асинхронного программирования в Visual Basic лежит концепция неблокирующего выполнения операций. Когда программа встречает длительную операцию, например, чтение большого файла или запрос к. . .
Async/await и асинхронное программировани­­е в Delphi
bytestream 08.02.2025
Асинхронное программирование является неотъемлемой частью разработки современных приложений, позволяя создавать отзывчивые и эффективные программы. В Delphi реализация асинхронности опирается на. . .
Асинхронное программировани­­­­­е и async/await в C#
bytestream 08.02.2025
Асинхронное программирование - концепция, позволяющая приложениям эффективно выполнять длительные операции без блокировки основного потока выполнения. В контексте современной разработки на C# это. . .
Асинхронное программировани­­­­­е и горутины/каналы в Go
bytestream 08.02.2025
Язык Go изначально разрабатывался с учетом современных многоядерных процессоров и необходимости эффективного параллельного выполнения задач. В отличие от традиционных подходов к асинхронному. . .
Как восстановить stash в Git
hw_wired 08.02.2025
Git stash - это средство для временного сохранения изменений в рабочей директории. В процессе разработки часто возникают ситуации, когда нужно быстро переключиться на другую задачу, но текущие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru