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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
работа с деревьями Паскаль
Задание:
Дан текстовый файл с изображением целых чисел, которые переписать в стек St1. Используя стек St2, выбрать только нечетные положительные числа и построить из них сбалансированное  дерево.

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

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



Последовательности с++
Вводится последовательность из N положительных целых чисел. Найти наименьшее число среди четных элементов последовательности.

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


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

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


код кнопки:



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

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

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