Информатика, вопрос опубликован 16.03.2019 18:50 денис081081

Синформатике это 1) создать игру "камень, ножницы, бумага"2) сделайте 1 и 2 на картинке ​

Ответы
Ответ добавил: Гость

program raf105;

var a: array[1..3] of integer;

i,za,zb: integer;

begin

write('введите три числа: ');

readln(a[1],a[2],a[3]);

for i: =1 to 3 do

begin

  if (a[i]< 0) and ((a[i] mod 2) < > 0)

    then za: = za+1

end;

for i: =1 to 3 do

begin

  if (a[i]> 99) and (a[i]< 1000) and ((a[i] mod 2) = 0) and (a[i]> zb)

    then zb: =a[i];

end;

writeln('а) ',za);

if zb< > 0  

  then writeln('в) ',zb)

  else writeln('в) не найдено');

end.

программа написана на языке pascalabc.net

Ответ добавил: Гость
Самые главные недостатки: - высокие требования к аппаратной составляющей компьютера: к его оперативной памяти, быстроте работы процессора и т.д.,- необходимость больших временных затрат на создание моделей всех объектов сцены, могущих оказаться в поле зрения камеры. конечно, такая работа стократно окупается результатом,- меньшую свободу в создании изображения, чем в двухмерной графике. создавая объект карандашом на бумаге или средствами 2d-графике на экране, можно совершенно свободно искажать пропорции объектов, пренебрегать законами перспективы и пр. в 3d-формате это возможно только в наиболее мощных пакетах, но даже в них это требует дополнительных усилий и изобретательности,- необходимость постоянно отслеживать взаимное положение объектов в составе сцене, в частности, при создании 3d-анимации. так как объекты 3d-графики «бестелесны», они легко проникают друг в друга и важно контролировать отсутствие ненужного контакта между ними.
Ответ добавил: Гость

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

 

p.s. если паскаль abc, то выделенное писать не обязательно 

Ответ добавил: Гость

program cyberforum;

var

a,b: array[1..20] of integer;

i: integer;

begin

randomize;

write('массив a: ');

for i: =1 to 20 do begin

  a[i]: =random(5)+1;

  write(a[i],'   ');

  end;

  writeln;

write('массив b: ');

for i: =1 to 20 do begin

  b[i]: =random(5)+1;

  write(b[i],'   ');

  end;

  writeln;

for i: =1 to 20 do begin

  if a[i]=b[i] then

  writeln(i,' элемент, значение: ',a[i]);

  end;

  end.

Больше вопросов по информатике
Предмет
Информатика, опубликовано 20.03.2019 21:10