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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Трек, который я сам написал в FLstudio
Баловался в FLstudio и сделал этот трек. Тут смесь Drum,n,Bass , Trance , Breaks , House вообщем смесь всего...


Активатор windows 8 и windows 8.1 скачать (+ мануал по установке)
Наконец-то вышел полностью рабочий активатор windows 8. Вы можете свободно скачать его с нашего сайта абсолютно бесплатно и без регистрации. Кроме того, в архиве с активатором находится полный мануал по его использованию!

подборка демотиваторов по теме "вконтакте"
подборка демотиваторов по теме "вконтакте".

KSF - Математический калькулятор
Программа для тех, кто часто решает различные математические задачи. Достаточно ввести несколько цифр и нажать кнопку - вы получите корни системы уравнений, функции или определитель матрицы. Также есть математическая справка. Рекомендуется школьникам и студентам, изучающим математику, а также преподавателям.


Опрос
Вы учитесь в СУЗе/ВУЗе
Всего ответов: 243

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


код кнопки:


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


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

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

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

Дата добавления: 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