Слово
«writeln»впервые сказано пользователем
M2b 16.04.2005 в 11:57,
и с тех пор употреблялось
119 раз.
Сообщения со словом
«writeln»
Запрос выполнился за
0.0205 сек.
- 07.12.2005, 22:56. HOOLIGAN в теме
«Помогите с программой»
... program physics const g 10 var v v0 t t0 y y0 real begin writeln введите начальную высоту readln y0 v0 0 y y0 t0 sqrt 2 y0 g t 0 while t t0 do begin v g t writeln скорость на секунде t равна v 6 2 y y0- sqr t g 2 writeln высота на секунде t равна y 6 2 t t 1 end end...
- 18.10.2005, 13:37. Дмитрий в теме
«легкая задача,но не для меня:)»
... shakersort var j k i l r integer x n integer begin writeln отрезок от l до r shakersort for i l 1 to r do begin l 2 r n k n repeat for j r downto l do begin if a j-1 a j then begin x a j-1 a j-1 a j a j x k j end end l k 1 for j l to r do begin if a j-1 a j then begin x a j-1 a j-1 a j a j x k j end end r k-1 until l r end end procedure sift l r integer protsedura proseivaniya var i j x integer begin i l j 2 l x m l while i r do begin if j r then if m j m j 1 then j j 1 if x m i then break m i m j i j j 2 j end m i x end procedure heapsort l r integer var i j integer x n integer begin l n div 2 1 r n while l 1 do begin l l-1 sift l r end while r m do begin writeln отрезок от 1 до r heapsort while r 1 do begin...
- 16.10.2005, 23:45. Первокур в теме
«Проги на ПАСКАЛЕ!»
... здесь всякие точки и линии readln closegraph end else writeln graphics error grapherrormsg errcode end возможная...
- 07.10.2005, 12:49. ~~HellHounD~~ в теме
«Задача по информатике»
... 1 n for j 2 to n do begin write get num i j n end writeln end end begin clrscr print perestan 4 readkey...
- 16.09.2005, 18:11. Firely в теме
«delphi, работа c memo-полем...»
... 1 to memo1 lines count do begin if i mod 2 0 then writeln txtfile memo1 lines i-1 end closefile txtfile...
- 16.04.2005, 20:22. GrD в теме
«Сумма ряда: разве глюк?»
... real i integer begin x 1 for i 1 to 10 do begin x x i writeln x end end используя математический сопроцессор...
- 16.04.2005, 11:57. M2b в теме
«Сумма ряда: разве глюк?»
... i j word begin write vvedite znachenie x readln x writeln exp x exp x write vvedite znachenie pogreshnosti readln eps writeln k 1 j 1 u1 1 u2 1 while u1 x k eps do begin u1 u1 x k u2 u2 u1 k k 1 j j 1 end writeln otvet while u2 writeln absolutnaya pogershnost exp x -u2 writeln chislo slagaemikh j k 1 j 1 u1 1 u2 1 repeat begin u1 u1 x k u2 u2 u1 k k 1 j j 1 end until u1 x k eps writeln otvet repeat u2 writeln absolutnaya pogershnost exp x -u2 writeln chislo slagaemikh j writeln k 1 j 1 u1 1 u2 1 write vvedite chislo slagaemih readln i for i i downto 2 do begin u1 u1 x k u2 u2 u1 k k 1 j j 1 end writeln otvet for u2 writeln absolutnaya pogershnost exp x -u2 writeln chislo slagaemikh j writeln readln end
