NEW

Заходим на мой блог разработок :D
http://blogofsomeart.blogspot.com/

Ваш, разрабытывающий что попало, автор

Im STUDY and I KNOW IT

Вот, пожалуйст, моя домашка. По карточкам. Смешно и не понятно.

program ex1;
uses Crt;
const n=10;
type uch=record
data:integer;
dayofned: byte;
tem:integer;
vla:integer;
end;
var a:array [1..n] of uch;
i,t:integer;
begin
t:=0;
 for i:=1 to n do
 with a[i] do
   begin
 readln (data,dayofned,tem,vla);

 if t>tem then writeln ('äåíü ',i,': òåìïåðàòóðà ïîíèçèëàñü íà ',t-tem,' ãðàäóñîâ. Óñòàíîâèëàñü òåìïåðàòóðà â ',tem) else
                       begin
                       if tem>t then writeln ('äåíü ',i,': òåìïåðàòóðà óâåëè÷èëàñü íà ',tem-t,' ãðàäóñîâ. Óñòàíîâèëàñü òåìïåðàòóðà â ',tem) else writeln ( 'äåíü ',i,': òåìïåðàòóðà ïî ïðåæíåìó ',tem);
                       end;
 t:=tem;

 end;
end.

На месте ужасных знаков реальные слова. Мне просто лень переписывать :D

PIXEL

Итак. На секунду подумай, что ты кусочек вселенной. Ты её часть, так не часть, а маленький кусочек. Кусочек по-английски бит. При слове бит, на тебя полюбому нахлынут воспоминания: касеты с мультиками, СЕГА, стрёмная графика. Остановимся на последней. Она из пикселей. Пиксели, пиксели, пиксели...
А пока вы не отошли от этого ощущения, быстро заходим на мою страницу: ссылка
Смотрим, комментируем, ставим смайлики.
Там про DOTA2, наверно не все фанаты, но...

P.S.:там моя картинка профиля на меня не очень похоже, но блин я рисовал на скорость :D

Ваш,пиксель-автор