Украинское сообщество программистов

Форум программистов » Учеба

1. Alenka Shemshey 8 мес. назад
   

   Помогите, пожалуйста, с программкой. Есть календарь, который выдается в Паскале на любой введенный пользоватем год. Но нужно чтоб он выдавался в текстовом файле. Как это сделать??? Плиз, очень надо!!!

   begin
   clrscr;
   Textcolor(LightGray);
   writeln('input year');
    read(year);clrscr;
    d:=(2+(year-1901)+(year-1901) div 4); d:=d mod 7;
    if d=0 then d:=7;
    for i:=1 to 3 do
     begin
      for j:=1 to 7 do
       begin
        gotoxy(1,i+j+(i-1)*7);
        write(kd[j])
       end;
     for j:=1 to 4 do
      begin
       gotoxy(wherex+8,wherey-7);
       write(month[j+4*(i-1)]);
       gotoxy(wherex-6-length(month[j+4*(i-1)]),wherey+d);
       if year mod 4=0 then days[2]:=29;
        for t:=1 to days[j+(i-1)*4] do
         begin
   {----------}
          if ((wherey-1) mod 8=7) then TextColor(LightRed);
          write(t);
          TextColor(LightGray);
   {----------}
          if d+1=8 then begin
           if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6)
                               else gotoxy(wherex+1,wherey-6);
           d:=1;end
          else begin d:=d+1;
           if (t>=1) and (t<9) then gotoxy(wherex-1,i+(i-1)*7+d)
                               else gotoxy(wherex-2,i+(i-1)*7+d);
          end;
        end; gotoxy(wherex+3,i+i*7);
      end;
   end ;
   writeln;
   readln;
   end.

2. Сергей Дымченко 8 мес. назад
   

   Я б может даже и помог. Но читать эту невыровненную мешанину кода просто невозможно.
   Для кода используйте что-то либо типа http://pastebin.com/ , чтобы выравнивание не терялось при вставке в форум. Ну или хотя бы тегами
   <pre><code> пользуйтесь.

3. Сергей Волошин 8 мес. назад
   

   Сделал тегами )

4. Сергей Дымченко 8 мес. назад
   

   Сергей Волошин, спасибо, но если сам автор сообщения поленился в более-менее читаемом виде опубликовать, то не особо ему и помогать хочется.
   Простите мне мой снобизм :-)

5. Anatoliy 8 мес. назад
   

   http://www.learn-programming.za.net/programming_pascal_learn10.html

RSS экспорт этой темы

Отправить сообщение