Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2018, 15:49   #1
kanav2
 
Регистрация: 16.03.2017
Сообщений: 6
Печаль Помогите пожалуйса в делфи перевести

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.
Помогите пожалуйса в делфи перевести,незнаю что куда там вставлять
kanav2 вне форума Ответить с цитированием
Старый 28.03.2018, 16:00   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Создавайте консольное приложение , и вставляйте все ( кроме uses crt; ) вот туда
Код:
program Project1;

{$APPTYPE CONSOLE}
// дальше - весь ваш код
Но если вам надо оконное приложение, то придется вместо ReadLn, Write использовать другое.
type_Oleg вне форума Ответить с цитированием
Старый 28.03.2018, 17:19   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Можно и без консольного: на форму кинуть Memo и три кнопки, по одной сгенерировать массив, по другой - сделать с ним х.з.ч, по третьей - вывести в Memo. Само собой, никаких Write, Writeln - есть простая хорошая фраза Memo1.Lines.Add (...
А писа'ть
Код:
a:=false;
......
if a=true ....
- это дурной тон, зачем лишние буквы, если можно
Код:
if a....

Последний раз редактировалось digitalis; 28.03.2018 в 20:53.
digitalis вне форума Ответить с цитированием
Старый 29.03.2018, 01:59   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от kanav2 Посмотреть сообщение
Помогите пожалуйса в делфи перевести,незнаю что куда там вставлять
А оно вам нужно? Я имею в виду программирование.
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите перевести код в делфи buket Общие вопросы по Java, Java SE, Kotlin 5 19.02.2020 22:21
Помогите пожалуйса написать прогу!!! Тореро Помощь студентам 2 31.05.2009 18:01
Помогите перевести на язык делфи код с С++! SkAndrew Общие вопросы Delphi 9 21.05.2009 18:49
помогите пожалуйса с програмками! Оксана Паскаль, Turbo Pascal, PascalABC.NET 8 24.11.2006 16:24