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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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