Меню сайта
Для студента
SEO & SMO
Категории раздела
| Delphi [2] |
| Assembler [5] |
| Курсовые проекты [4] |
| Разное [1] |
| Pascal [16] |
| Невероятно, но факт [1] |
| Заказать курсовую [1] |
| SEO [1] |
| С/C++ [10] |
| Дипломные работы [1] |
| Бизнес-цитатник [2] |
Опросник
Поддержать проект
Благодарность выразило,чел: 7
Статистика
Полная статистика
Онлайн всего: 9
Гостей: 9
Пользователей: 0
| Главная » Статьи » Pascal |
Нарисуйте египетскую ступенчатую" пирамиду, вид сверху и сбоку.
| Program www; uses Graph; var z,k,m,grDriver,grMode:integer; begin initgraph(grDriver,grMode,''); grDriver:=detect; while z<=65 do begin setcolor(7); setfillstyle(1,z); Bar(50+(2*z),50+(2*z),300-(2*z),300-(2*z)); z:=z+5; while m<=60 do begin setcolor(2); line(350,300,600,300); line(350+(2*m),300-(2*m),600-(2*m),300-(2*m)); m:=m+5; line(350,300,475,175); line(475,175,600,300); end; end; end. | |
| Просмотров: 1686 | Теги: | Рейтинг: 1.0/1 |
| Всего комментариев: 0 | |
