|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2008, 17:53 | #1 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 13
|
перевести программу из Pascal с использованием компонента Stringgrid в delphi.
Написать програму с использованием компонента Stringgrid в delphi.
Текст програмы у меня есть в паскале мне нужно оформить эту прогу в Делфи. Текст програмы в паскале. Двумерные массивы. uses crt; type Dtip=array [1..10,1..10] of real; Atip=array [1..10,1..10] of real; var Dmas:Dtip; Amas:Atip; n,m,i,j:integer; d,max:real; begin clrscr; writeln('Vvedite n i m:'); readln(n,m); writeln('Vvedite massiv:'); writeln; for i:=1 to n do for j:=1 to m do begin write ('Vvedite [',i,',',j,'] element massiva: '); readln(Dmas[i,j]); end; clrscr; max:=abs(Dmas[1,1]); for i:=1 to n do for j:=1 to m do begin if max<abs(Dmas[i,j]) then max:=abs(Dmas[i,j]); end; for i:=1 to n do for j:=1 to m do Amas[i,j]:=Dmas[i,j]/max; for i:=1 to n do begin writeln; for j:=1 to m do begin write (Dmas[i,j]:4:1,' '); end; end; Writeln; Writeln; Writeln('Poluchenyy massiv:'); Writeln; for i:=1 to n do begin writeln; for j:=1 to m do begin write (Amas[i,j]:4:1,' '); end; end; readkey; end. |
02.06.2008, 17:57 | #2 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Ну так в чём проблема немогу понять, садишься и пишешь. Или за тя написать надо?
Нет невыполнимых задач, всё дело времени...
|
02.06.2008, 18:13 | #3 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 13
|
делфи
напиши пожалуйста я пробовал у меня не получилось.
|
02.06.2008, 18:16 | #4 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 13
|
напиши пожалуйста я пробовал ни чего у меня не получается
|
02.06.2008, 18:57 | #5 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Сам разберёся что на форму накидать...
Код:
Нет невыполнимых задач, всё дело времени...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Help плиз! Нужно перевести текст в программу!!! | XzB | Помощь студентам | 1 | 07.06.2008 11:54 |
Перевести код с Pascal в C++ | gigaman | Общие вопросы C/C++ | 1 | 26.03.2008 12:18 |
Организация программ с использованием процедур....Pascal | flexo_77 | Помощь студентам | 1 | 19.12.2007 14:06 |
ПОМОГИТЕ ПЕРЕДЕЛАТЬ ПРОГРАММУ ИЗ PASCAL В DELPHI | Solny6ko YasnoE | Помощь студентам | 11 | 11.08.2007 15:24 |
Помогите перевести наипростейшую программу в Visual Basic из Delphi | Cooler | Общие вопросы Delphi | 1 | 20.11.2006 21:21 |