работа с файлами Паскаль - лабы на Паскале - Файлы - Помощь студенту
Помощь студентуФайлылабы на Паскалеработа с файлами Паскаль
11 Декабря 2016, Воскресенье
01:24
>>> Качественная веб-разработка <<<
01:24
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
SchoolBoy 5
SchoolBoy - "Программа, позволяющая выполнять большое количество математических действий. Пригодится там, где необходимо проводить множественные расчеты (особенно последовательные или однотипные) с использованием сложных выражений. При этом допускается ввод сразу всего задания (состоящего из неограниченного числа подзаданий, разделяемых точкой с запятой) и решение его одним нажатием кнопки, после которого на экран будет выведен окончательный результат и все промежуточные."
Допускается ввод сразу всего задания (состоящего из неограниченного числа подзаданий, разделяемых точкой с запятой) и его решение одним нажатием кнопки, после которого на экран будет выведен не только окончательный результат, но и все промежуточные.
Программа обладает удобным и простым интерфейсом, имеется возможность сохранения/печати заданий и результатов вычислений.

Работа с Турбо Паскалем #1/2
Хороший учебник по языку Паскаль. Очень много полезной информации, все описывается без лишних слов.

Вторая часть.

работа со списками Паскаль
Задание:
Имеется файл. Содержимое файла поместить в список в обратном порядке.

Пример:
содержимое файла: 123456789
полученный список: 987654321

XVI32 2.51
Шестнадцатеричный редактор для программистов. Помимо стандартных для такого рода программ возможностей редактирования, предлагает подсчет контрольных сумм CRC16 и CRC32, поиск, замену и подсчет числа вхождений байтов в файл.


Опрос
Зацените дизайн сайта
Всего ответов: 370

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


код кнопки:


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


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

работа с файлами Паскаль

Название: работа с файлами Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 1.4Kb
Просмотров: 4044
Загрузок: 936
Комментариев: 1
Дата добавления: 26 Марта 2009, 14:47
Теги:нечетное место, готовые лабы, ссылка, ФУНКЦИИ, Паскаль, процедуры, программирование, файл, информатика, индексы
Поделиться:
Скачать:

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


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


Описание:
Задача:
Создать типизированный файл и найти произведение цифр, стоящих на нечетных местах.

Пример:
1 23 456 1234
1*3*5*1*3=45

Исходный код:
program name;
uses crt;

{===========================}
{sozdaem fail i zapolnyaem ego 4islami}
procedure createfile(filename:string);
var f:file of integer;
    a:integer;
Begin
 Assign(f,filename);
 rewrite(f);
 writeln('input 4isla ');
 readln(a);
 While a<>0 do
 Begin
  write(f,a);
  readln(a);
 End;
 close(f);
End;

{===========================}
{vivodim na ekran sodergimoe faila}
procedure printfile(filename:string);
var f:file of integer;
    a:integer;
Begin
Assign(f,filename);
reset(f);
 while not eof(f) do
  Begin
   read(f,a);
   write(a,' ');
  End;
 close(f);
End;
{proizvedenie cifr na ne4etnom meste}
procedure pods4et(filename:string);
var  f:file of integer;
     b,j,i,p,k:integer; a:integer; c:array[1..5] of integer;
Begin
Assign(f,filename);
reset(f);
j:=0; p:=1;
 while not eof(f) do
  Begin
   read(f,a);
   i:=1;
     repeat
      c[i]:=a mod 10;
      i:=i+1;
      k:=i;
      a:=a div 10;
     until a=0;
    {==================}
     for i:=k-1 downto 1 do
      Begin
       write(c[i]);
       j:=j+1;
       if (j mod 2<>0) then p:=p*c[i];
      End;
     write(' ');
   End;
   writeln('proizvedenie=',p);
 close(f);
End;

BEGIN
 clrscr;
 createfile('C:\1.txt');
 printfile('C:1.txt');
 writeln;
 writeln('==================');
 pods4et('C:\1.txt');
 readln;
END.
Комментарии:
Всего комментариев: 1
1 антон   (21 Декабря 2009 в 14:49)
помогите пожалуста решить задачку в паскале, нужно срочно, у меня коннтрольная:
дана матрица An,n . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В"
нужно код программы и желательно блок схему
..

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

Статистика

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


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

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

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