|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.03.2018, 15:49 | #1 |
Регистрация: 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. Помогите пожалуйса в делфи перевести,незнаю что куда там вставлять |
28.03.2018, 16:00 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
Создавайте консольное приложение , и вставляйте все ( кроме uses crt; ) вот туда
Код:
|
28.03.2018, 17:19 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,534
|
Можно и без консольного: на форму кинуть Memo и три кнопки, по одной сгенерировать массив, по другой - сделать с ним х.з.ч, по третьей - вывести в Memo. Само собой, никаких Write, Writeln - есть простая хорошая фраза Memo1.Lines.Add (...
А писа'ть Код:
Код:
Последний раз редактировалось digitalis; 28.03.2018 в 20:53. |
29.03.2018, 01:59 | #4 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,859
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите перевести код в делфи | 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 |