Нужно перевести из pascal на python, ) uses graphabc, crt; var x, y, y0, ys, i, s: integer; k, q: real; begin setwindowsize(700, 500); write('сколько секунд должны отсчитать часы? '); readln(s); setpencolor(clnavy); arc(200, 410, 200, -8, 61); arc(400, 410, 200, 119, -170); arc(200, 70, 200, -60, 7); arc(400, 70, 200, 173, -120); setbrushcolor(clsilver); setpencolor(clblack); rectangle(170, 50, 430, 30); rectangle(170, 450, 430, 430); floodfill(250, 110, clskyblue); floodfill(250, 410, clskyblue); k: =80; x: =300; q: =0; for y: =130 to 230 do begin setpencolor(clnavy); line(round(x-k), y, round(x+k), y); k: =k-q; if y mod 25=0 then q: =q+0.45; end; k: =80; x: =300; q: =0; y0: =430; for y: =130 to 230 do begin setpencolor(clskyblue); line(round(x-k), y, round(x+k), y); k: =k-q; if y mod 25=0 then q: =q+0.45; setpencolor(clnavy); line((x-100), 430, x, y0); line(x, y0, (x+100), 430); sleep(10*s); y0: =y0-1; for i: =1 to 20 do begin ys: =random(151)+250; putpixel(300, ys, clnavy); end; for i: =1 to 20 do begin ys: =random(101)+230; putpixel(300, ys, clskyblue); end; end; setpencolor(clskyblue); line(300, 250, 300, 330); setpencolor(clnavy); arc(200, 410, 200, -8, 61); arc(400, 410, 200, 119, -170); arc(200, 70, 200, -60, 7); arc(400, 70, 200, 173, -120); setbrushcolor(clsilver); rectangle(170, 50, 430, 30); rectangle(170, 450, 430, 430); writeln(s, ' секунд истекло! '); end.
Ответы
//я сбрасывал ему этот код в лс. думаю, я имею право на эти . var c: array[1..10,1..10] of integer; ar: array of string; i,s,j: integer; begin; randomize; for i: =1 to 10 do begin; for j: =1 to 10 do begin; c[i,j]: =random(-10,10); if c[i,j]> 0 then begin; inc(s); setlength(ar,s+1); ar[s]: =inttostr(i)+','+inttostr(j); end; end; end; writeln('matrix: '); for i: =1 to 10 do begin; writeln; for j: =1 to 10 do write(c[i,j]: 5); end; writeln; writeln('new array: '); for i: =1 to s do writeln(ar[i]); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составь характеристику объекта а) характеристика конфеты
Автор: shakovaea
Які є режими роботи з наявними матеріалами ресурсу?
Автор: homeo85
по МЕДИЦИНСКОЙ ИНФОРМАТИКЕ
Автор: mar77873
Составь информационную модель объекта "цветок"
Автор: Евгений1286
ценность информации — одно из важных свойств информации, оценка которого зависит от целей процессов её генерации, рецепции и обработки. изучается специальными теориями информации, теорией принятия решений.
удобнее всего рассматривать проблематику ценности информации, приняв за определение информации (в духе работы г. кастлера[en] «возникновение биологической организации»), что: «информация есть запомненный выбор одного варианта из нескольких возможных и равноправных».
с понятием информации тесно связано и понятие количества информации. количество информации применимо как численная характеристика полного количества информации, так и количества ценной информации. информация некоторого сообщения может быть как полностью ценной, так и не содержать ценной информации вообще[3]. понятиям «ценности» и «осмысленности» информации, несмотря на их важность в информатике, обычно строгого определения не давали[4].
в информатике (развившейся из теории связи) ценность информации, её эволюция и вопросы спонтанного возникновения в сложных системах не является предметом изучения, так как цель предполагается заданной извне. смысловые и прагматические аспекты информации, в том числе ценность и осмысленность, изучаются в рамках семантической и прагматической теорий информации