ea-office
?>

Номер 15, нужно сделать программу в microsoft visual c++ ​

Информатика

Ответы

elena-ppk
// pascalabc.net 3.1, сборка 1218 от 12.04.2016 uses graphabc; procedure sun(x, y: integer); begin   var c : = 8;     for var j : = 1 to 100 do   begin       var r : = 15 * c;       var k : = 0;       if j mod 2 = 0 then k : = 20;             for var i : = 0 to c do       begin           brush.color : = rgb(230 - k, 230 - k, 0);           circle(x, y, r);           k : = k + 15;           r : = r - 15;           sleep(100);       end;   end; end; procedure house(x, y: integer); begin   brush.color : = clbrown;   pen.color : = clburlywood;   var house_width : = 300;   var house_height : = 300;   var count : = 10;   var step : = round(house_width / count);     fillrectangle(x, y, x + house_width, y + house_height);     var xx : = x;   for var i : = 1 to count - 1 do   begin       xx : = xx + step;       line(xx, y, xx, y + house_height);   end;     brush.color : = clgray;   fillrectangle(x + 100, y + 100, x + 200, y + 210);   brush.color : = clyellow;   fillrectangle(x + 105, y + 105, x + 195, y + 150);   brush.color : = clred;   fillrectangle(x + 105, y + 155, x + 150, y + 205);   brush.color : = clblue;   fillrectangle(x + 155, y + 155, x + 195, y + 205);     moveto(x + house_width div 2, y - 80);   lineto(x + house_width, y, pen.color);   lineto(x, y, pen.color);   lineto(x + house_width div 2, y - 80, pen.color);   floodfill(x + house_width div 2, y - 10, clolive);     brush.color : = clred;   circle(x + house_width div 2, y - 35, 30); end; procedure turtoise(x, y: integer); begin   brush.color : = clgreen;   pen.color : = clgreen;   fillrectangle(x + 5, y + 15, x - 20, y + 24);   fillrectangle(x + 50, y, x + 30, y + 70);   fillrectangle(x + 100, y, x + 120, y + 70);   fillcircle(x + 170, y, 30);     brush.color : = clwhite;   fillcircle(x + 180, y - 20, 10);     brush.color : = clblack;   fillcircle(x + 182, y - 18, 2);   brush.color : = clred;   fillrectangle(x + 180, y, x + 200, y + 4);   brush.color : = clbrown;   fillellipse(x, y - 10, x + 150, y + 50); end; begin   window.init(0, 0, 1920, 1000, clblue);   brush.color : = cllimegreen;   rectangle(0, 580, 1920, 1018);     house(700, 380);   turtoise(300, 600);   turtoise(900, 750);   sun(1200, 200); end.
ibird777
//pascal abc.net v3.1 сборка 1172 const   n=4; var   ma: array[1..n,1..n] of integer;   i,j: integer; begin   randomize;   for i: =1 to n do   begin     for j: =1 to n do     begin       ma[i,j]: =random(50)-20;       write(ma[i,j]: 4);     end;   writeln;   end;   writeln('сторки: ');   for i: =1 to n do   begin   write(i,': ');     for j: =1 to n do     if ma[i,j]< 0 then       begin       writeln(j);       break;       end;       writeln;     end;   writeln('столбцы: ');   for j: =1 to n do   begin   write(j,': ');     for i: =1 to n do     if ma[i,j]< 0 then       begin       writeln(i);       break;       end;       writeln;   end; end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Номер 15, нужно сделать программу в microsoft visual c++ ​
Ваше имя (никнейм)*
Email*
Комментарий*