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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Ссылка открывается в новом окне установленного размера
Ссылка открывается в новом окне установленного размера. Подойдет для входа на сайт или удобной для пользователя регистрации.

Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ
Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ

Первая часть текста (разд. 2–7) содержит необходимые теоретические сведения и задания на 6 лабораторных проектов по основным те- мам линейной алгебры. Во второй части (разд. 8–9) приведены задачи, контрольные задания и рабочая программа курса. Для студентов, изучающих численные методы по программе под- готовки в области математики, экономики и управления, естественных или технических наук по специальностям: 010101 – Z Математика
, 010501 – Прикладная математика и информатика P, 010503 – b Математическое обеспечение и администрирование информационных систем , 210400 – Телекоммуникации0, 230200 – B Информационные системы, 230301 – Моделирование и исследование операций в организационно- технических системах&, 080801 – 8Прикладная информатика (по областям)
, 090105 – Комплексное обеспечение информационной безопасности автоматизированных систем: и другим

AutoGraph 1.02
Программа предназначена для построения графиков кривых. Для всех, кого не устраивают те графики, которые строит MS Excel. Программа выдает график кривых в виде красочного и наглядного рисунка, который, на мой взгляд, выглядит лучше, чем графики предлагаемые Excel. На одном графике может быть до 10 кривых, точки которых могут быть соединены как ломаной, так и плавной линией.

Шпора по матану Интегралы, Ряды
Очень хорошая шпора по Математическому анализу. Удобно сделана: скачал, распечатал, разрезал. Почти все темы по интегралам и рядам. Делал для себя, поэтому сделана хорошо. формат .doc


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

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


код кнопки:


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


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

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

Название: работа с файлами Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 1.4Kb
Просмотров: 4476
Загрузок: 1113
Комментариев: 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