Нарисовать горизонтальную "линию",
состоящую из 15 разноцветных
пересекающихся окружностей
__________
чето у меня не получается кто знает как реализовать ?
uses graph;
var x,y,i:integer;
begin
initgraph(x,y,'');
x:=250;
y:=getmaxY div 2;
for i:=1 to 15 do
begin
setcolor(i);
circle(x,y,5);
x:=x+8;
end;
readln
end.
1.Составить программу, вычисляющую
0,4x^2-1/x в цикле от 2 до 10, где x с шагом
0,5......
через цикл for нужно сделать
Изм. 1 раз. / Посл. изм. (6 окт 2015, 13:47)
Pascal дан массив состоящий из 20 символов отсортировать по возростанию ввести два числа A иB определить наличие в массиве символов от A до B вывести найденые символы на экран
ну я 3 курсник и в 9 классе проходил вижуал бейсик
Аж подгорает... Нормальные люди в школе паскаль и бейсик проходят, а меня в ворде таблицы заставляют рисовать 
Вот тут что-то типа того, что тебе надо
- 1 из 1
