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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
NVU 1.0 PR ruRU win32 installer full

NVU это Open Source проект Linspire по созданию визуального (WYSIWYG) HTML редактора. Как и для Firefox и Thunderbird основой для создания NVU послужила часть кода выделенного из Mozilla - код Mozilla Composer. К созданию NVU был привлечен главный архитектор Mozilla Composer - Дэниел Глазман. На сегодняшний день NVU имеет уже достаточно много возможностей отсутствующих в оригинальном Mozilla Composer. Это Менеджер сайтов, позволяющий редактировать страницы на удаленном сервере, встроенный Редактор CSS c предварительным просмотром стилей, цветная подсветка синтаксиса в режиме редактирования кода, проверка орфографии и многое другое. Разработчики обещают поднять его функциональность до уровня FrontPage и Dreamweaver.


всплывающее окно с формой входа и регистрации
Всплывает окно, где можно выполнить вход или зарегистрироваться. Но также можно выводить любую информацию. Это окно появляется только тогда, когда пользователь - гость, т. е. не выполнил вход или не зарегистрировался. Если пользователь вошел на сайт под своим именем, то окно не появляется.

Шпоры для ЕГЭ 2010 по физике, математике и русскому языку
2 года назад тоже сдавал ЕГЭ. Вот подготовил я к нему шпоры. Удачно списал. Поступил, куда хотел. Теперь в отличном ВУЗе на отличной специальности учусь. Решил поделиться с Вами своими творениями. Шпоры я подредактировал, специально для ЕГЭ 2010. Так что качайте шпоры, списывайте на ЕГЭ и поступайте, куда хотите!!!

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


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

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


код кнопки:



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

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

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

Статистика

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


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

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

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

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