0 / 0 / 0
Регистрация: 06.11.2016
Сообщений: 106
1
Delphi 6-7

Постройте последовательность b1 , b2 , ..., bn, из нулей и единиц по условию

28.03.2018, 15:50. Показов 664. Ответов 4
Метки нет (Все метки)

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
uses crt;
var arr:array[1..50,1..50] of real;
b:array[1..50] of integer;
i,j,n:integer;
a:boolean;
begin
write('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=(random(20)-10) / 1.13;
write(arr[i,j]:2:2,' ');
end;
writeln();
end;
a:=false;
for i:=1 to n do
begin
for j:=1 to n do
if arr[i,j]<0 then a:=true;
if a=true then b[i]:=1
else b[i]:=0;
a:=false;
end;
for i:=1 to n do
write(b[i],' ');
end.
Помогите пожалуйса в делфи перевести,незнаю что куда там вставлять
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2018, 15:50
Ответы с готовыми решениями:

Постройте последовательность b1 , b2 , ..., bn из нулей и единиц
Пусть даны натуральное число n и вещественная квадратная матрица порядка n. Постройте...

Построить последовательность из нулей и единиц согласно условию элементов матрицы
Даны натуральное число n и квадратная матрица порядка n(n=5). Построить последовательность b1,….,bn...

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

Необходимо найти и посчитать максимальную последовательность нулей в последовательности нулей и единиц
Как бы Вы реализовали?

4
Эксперт Pascal/Delphi
4746 / 2723 / 843
Регистрация: 04.10.2012
Сообщений: 9,937
28.03.2018, 16:08 2
Цитата Сообщение от fnatic Посмотреть сообщение
Помогите пожалуйса в делфи перевести
можно ничего не переводить. Просто создайте в Delphi консольное приложение, из кода выше уберите первую строчку, а перед последним end (после 28-й строки) добавьте строку Readln;.
Profit!
1
0 / 0 / 0
Регистрация: 06.11.2016
Сообщений: 106
28.03.2018, 16:16  [ТС] 3
нужно оконное(
0
Эксперт Pascal/Delphi
4746 / 2723 / 843
Регистрация: 04.10.2012
Сообщений: 9,937
28.03.2018, 16:19 4
Цитата Сообщение от fnatic Посмотреть сообщение
нужно оконное
а консоль - это не окно ? Если нужно приложение с формой, то кидайте на форму кнопочки, сетку TStringGrid, лейблы и вперед!
1
0 / 0 / 0
Регистрация: 06.11.2016
Сообщений: 106
28.03.2018, 19:35  [ТС] 5
не могли бы вы помочь?не умею с формами работать

Добавлено через 53 минуты
Пусть даны натуральное число n и вещественная квадратная матрица порядка n. Постройте последовательность b1 , b2 , ..., bn, из нулей и единиц, в которой b i = 1 тогда и только тогда, когда в i-й строке матрицы есть хотя бы один отрицательный элемент.
такое задание
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2018, 19:35

Дана последовательность из P нулей и единиц. Определить в каких позициях начинаются цепочки нулей
Здравствуйте форумчане, у меня сложились трудности с решением одной задачки, и я даже незнаю как к...

Последовательность единиц и нулей
помогите написать функцию которая посчитает и выведет число всех последовательностей например...

Последовательность из 40 нулей и единиц
Всем доброго времени суток. Дали задание курсовой, даже нет идей как это реализовать. Задание:...

Построить последовательность b1 ... bn из нулей и единиц
Дано натуральное число n и натуральная квадратная матрица порядка n, каждый элемент которой не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.