Помощь студентуФайлылабы на ПаскалеТекстовые файлы Паскаль
19 Февраля 2019, Вторник
23:05
>>> Качественная веб-разработка <<<
23:05
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
всплывающее окно с формой входа и регистрации
Всплывает окно, где можно выполнить вход или зарегистрироваться. Но также можно выводить любую информацию. Это окно появляется только тогда, когда пользователь - гость, т. е. не выполнил вход или не зарегистрировался. Если пользователь вошел на сайт под своим именем, то окно не появляется.

Выдвигается контент при нажатии на кнопку
Выезжает определенная информация при нажатии на кнопку. БЕЗ ява скриптов.

Пример смотрите, нажав справа в блоке Пользователь "Доп. инф-а"



Программа решает СЛУ методом Гаусса
Очень хорошая программа для решения Систем Линейных Уравнений методом Гаусса. Выводится подробный ответ, по действиям. Приводит к ступенчатому виду.

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


Опрос
Вы учитесь в ...
Всего ответов: 661

Сотрудничество
Поставьте себе на сайт и сообщите мне


код кнопки:


Связь с админом
395799449
Написать админу
Оставить отзыв


Файлы
Главная » Файлы » Учебные материалы » лабы на Паскале

Текстовые файлы Паскаль

Название: Текстовые файлы Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 3.5 Kb
Просмотров: 6770
Загрузок: 1357

Дата добавления: 17 Августа 2009, 19:10
Поделиться:
Скачать:

Скачать Текстовые файлы Паскаль бесплатно и без регистрации


Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.


Описание:
Дан текстовый файл с изображениями целых чисел. В выходной файл поместить обратные величины двухзначных чисел. Пример: для 26 – 0.038, для 87 – 0.011, и т.д. На экран вывести количество чисел во входном файле, количество чисел в выходном файле, размер входного и выходного файла в байтах.

Исходный код:

Code
uses crt;
   function ProvNaDvuznach(x:integer):boolean;
      var k:byte;
          ost:integer;
        begin
          k:=0;
          ProvNaDvuznach:=false;
           repeat
             ost:=x mod 10;
             k:=k+1;
             x:=x div 10;
           until x=0;
           if k=2 then ProvNaDvuznach:=true;
        end;
   function Obratnoe(x:integer):real;
        begin
          Obratnoe:=1/x;
        end;
var Fin,Fout:text;
    slovo,st,st1:string;
    razvh,razvih:integer;
    chislo,code,col:integer;
    vh,vih,ks,ks2,i,a:integer;
    F:boolean;
    sum,sum2:longint;

 BEGIN
 ClrScr;
  assign(Fin,'f:\vh.txt');
  {$I-} reset(Fin); {$I+}
  sum:=0; ks:=0; sum2:=0; ks2:=0; col:=0;
  F:=false;
  if IOResult<>0 then begin
                        TextColor(4);
                        writeln(' File Error');
            readln;
                        Halt;
              end;
  textcolor(14);
  writeln('Vhodnoi fail:');
  while not EOF (Fin) do
    begin
      readln(Fin,st);
      Val(st,chislo,code);
      if ProvNaDvuznach(chislo)=true then begin
                                            textcolor(4);
                                            write(st,' ');
                                          end
                                     else begin
                                            textcolor(15);
                                            write(st,' ');
                                          end;
      ks:=ks+1;
      inc(sum, Length(st));
      if st=' ' then inc(sum);
      if st<>' ' then vh:=vh+1;
      if ProvNaDvuznach(chislo)=true then F:=true;
     end;
    razvh:=2*ks+sum;
    writeln;
    TextColor(15);
    if F=false then writeln('V faile dvuhznachnyh chisel net!!!')
               else
       begin
          Reset(Fin);
          assign(Fout,'f:\vih.txt');
          rewrite(Fout);
          textcolor(14);
          writeln;
          writeln('Dvuznachnie chisla, zapisannie vo vhodnoi fail:');
            while not eof(Fin) do
               begin
                readln(Fin,st);
                 Val(st,chislo,code);
                 if ProvNaDvuznach(chislo)=true then
                     begin
                      textcolor(14);
                       write('Chislo: ');
                       textcolor(2);
                       write(chislo);
                       textcolor(14);
                       write(', obratne emu:');
                       textcolor(4);
                       writeln(obratnoe(chislo):6:3,'   ');
                       writeln(Fout,st,' -',obratnoe(chislo):6:3);
                     end;
               end;
       end;
       reset(Fout);
       while not EOF (Fout) do
         begin
           readln(Fout,st1);
           val (st,chislo,code);
           ks2:=ks2+1;
           inc(sum2,Length(st1));
           if st1<>' ' then vih:=vih+1;
         end;
    vih:=vih*2;
    razvih:=sum2+ks2*2;
    Textcolor(14);
    writeln;
    write('Kolichestvo chisel v vhodnom faile:');
    Textcolor(4);
    writeln(vh);
    Textcolor(14);
    write('Kolichestvo chisel vo vihodnom faile:');
    Textcolor(4);
    writeln(vih);
    writeln;
    Textcolor(14);
    write('Razmer vhodnogo faila: ');
    Textcolor(4);
    writeln(razvh,' bait(ov)');
    Textcolor(14);
    write('Razmer vihodnogo faila: ');
    Textcolor(4);
    writeln(razvih,' bait(ov)');
    close(Fin);
    close(Fout);
  {end; }
  readkey;
end.

Комментарии:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Разделы новостей
Образование [4]
лабы на Паскале [11]
Шпоры [10]
Учебники [19]
Лабы по физике [3]
Лабы по С++ [7]

Статистика

Яндекс.Метрика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Все пользователи

Яндекс цитирования Rambler's Top100 Каталог сайтов OpenLinks.RU Каталог сайтов iLinks.RU Каталог сайтов :: Развлекательный портал iTotal.RU Каталог сайтов Bi0 Каталог сайтов Всего.RU

Сайт работает с 2008 года