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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Учебник по FL Studio
Хороший учебник по FL Studio. В интернете вообще не много учебников по FL Studio, но вот один из них.
Часть I. Сведение танцевальной музыки в FL Studio.
Часть II. Мастеринг танцевальной музыки в FL Studio
Часть III. Эффекты, комплексные эффекты и фрики в FL Studio
Часть IV. Внеклассное чтение :)

Примеры решений задач по теории вероятностей
В этом документе собраны Задачи и их решения по теории вероятностей по основным темам.

Основы работы с CSS
Курс посвящен практике применения языка гипертекстовой разметки с применением каскадных таблиц стилей (Cascade Style Sheets). На большом количестве примеров рассматриваются основные приемы использования CSS.

Решенные задания из пильщикова
Решенные задания из Пильщикова. Какие задания решены, читайте на странице материала.


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

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


код кнопки:



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

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

Название: работа с файлами Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 1.4 Kb
Просмотров: 6488
Загрузок: 1811
Комментариев: 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
0  
1 антон   (21 Декабря 2009 в 14:49)
[Материал]
помогите пожалуста решить задачку в паскале, нужно срочно, у меня коннтрольная:
дана матрица An,n . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В"
нужно код программы и желательно блок схему
..

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

Статистика

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


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

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

Яндекс цитирования Rambler's Top100

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