Информатика
Информатика, 14.10.2019 08:04, tvymniikus

Вопрос/Задача:

Составить программу светофор в pascalabc

Ответы на вопрос

Ответ
Ответ разместил: Гость

бант-бунт-бурт-борт-корт-кора-коса

 

шар-шаг-лаг-луг-луб-куб

муха - муpа - туpа - таpа - каpа - каpе - кафе - кафp - каюp - каюк - кpюк - уpюк - уpок - сpок - сток - стон - слон

Ответ
Ответ разместил: Гость

fpc ide 2.6.0 

var a,b: array[1..10] of integer; i,k,z: integer; begin z: =1; for i: =1 to 10 dobegina[i]: =random(25)-15; if a[i]> 0 then a[i]: =sqr(a[i]); if a[i]< 0 then begin b[z]: =a[i]; a[i]: =12345; inc(k); inc(z); end; end; for i: =1 to 10 dowriteln('a[',i,']=',a[i]); writeln('kol-vo otricatelnux: ',z-1); for i: =1 to z-1 do writeln('otricatelnie elementy: ',b[i]); readln; end.

Ответ
Ответ разместил: Гость

в тех случаях, когда натуральный эксперимент невозможен. например при изучении слишком больших объектов или наоборот при изучении слишком маленьких объектов

 

Ответ
Ответ разместил: dfgfdgfd1

теперь нормально все.

 

uses graphabc,crt;   var i: integer; h: real; beginrandomize;   rectangle(280,130,320,320); rectangle(250,10,350,260); circle(300,55,35); circle(300,135,35);   circle(300,215,35);   for i: =1 to 1000 do  begin  floodfill(300,55,clred);   delay(3000);   floodfill(300,55,clwhite);   delay(1000);   floodfill(300,135,clyellow);   delay(3000);   floodfill(300,135,clwhite);   delay(1000);   floodfill(300,215,clgreen);   delay(1000);   floodfill(300,215,clwhite);     delay(1000);   end; end.

Похожие вопросы

Вопросов на сайте: