→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
delphi massiv 
Автор Сообщение
Начинающий

Регистрация: 17.03.2014
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение delphi massiv
eto na paskale nujno rewit' na delphi strinGrid
1. program esep;
2. uses crt;
3. var a:array[1..100,1..100] of integer;
4. i,j,n:integer;
5. begin
6. clrscr;
7. write('n=');
8. readln(n);
9. for i:=1 to n do
10. for j:=i to n-i+1 do
11. a[i,j]:=1;
12. for i:=n downto 1 do
13. for j:=i downto n-i+1 do
14. a[i,j]:=1;
15. for i:=1 to n do
16. begin
17. for j:=1 to n do
18. write(a[i,j]);
19. writeln;
20. end;
21. readkey;
22. end.


17.03.2014 19:00
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»