close

Вход

Забыли?

вход по аккаунту

?

laba 2 gotovaya1

код для вставкиСкачать
Министерство образования и науки Российской Федерации
ГОУВПО Ивановский Государственный Химико-Технологический Университет
Факультет химической техники и кибернетики
Лабораторная работа по дисциплине
"Системное и прикладное программное обеспечение"
Тема работы: "Пакетные файлы"
Вариант №1
Выполнила:
студентка гр. 4/36
Машкова А.А.
Иваново 2013
Вариант 1.
Требования к пакетному файлу: 1. Вывести информацию об авторе (ФИО, Курс/Группа, Номер компьютера). 2. Проверить наличие текстового файла с именем, переданным в качестве параметра командному файлу. 3. Проверить наличие исполняемого файла с произвольным именем. 4. В случае отсутствия одного из файлов, выдать соответствующее сообщение и завершить выполнение командного файла. 5. Запустить на исполнение файл приложения, с параметром, в котором указано имя текстового файла. 6. По завершении работы программы проанализировать системную переменную ERRORLEVEL: вывести код завершения приложения; в зависимости от кода вывести некоторое сообщение. 7. Завершить работу пакетного файла. Требования к программе: 1. Открыть текстовый файл, переданный в качестве параметра. 2. В данном текстовом файле найти строку, введенную пользователем с клавиатуры. 3. В зависимости от того, была найдена строка или нет, завершить работу программы с соответствующим кодом завершения: 0 - строка была найдена; 1 - строка не найдена.
Цель работы: составить 4 файла:
1. Командный файл
2. Программа, написанная на языке программирования
3. Откомпилированная программа
4. Текстовый файл с произвольным текстом
Листинг командного файла:
@echo off
Cls
Echo Mashkova Aleksandra Alekseevna 4/36, 5-03
If exist %1 echo %1 Naiden!
If exist prog.exe echo prog.exe naiden
If not exist %1 echo %1 file not found If not exist prog.exe echo prog.exe file not found prog.exe %1
Echo Errorlevel - %Errorlevel%
If "%Errorlevel%"=="0" (Echo stroka naidena)
If "%Errorlevel%"=="1" (Echo "ne naideno")
Pause
Exit Листинг программы Паскаль:
program prog;
uses crt;
var
f:file of char;
find_str:string;
ERRORLvL,i:integer;
ch:char;
begin
clrscr;
C:=ParamStr(1);
writeln('Dannay stroka');
readln(find_str);
assign(f,C);
reset(f);
i:=1; ERRORLvL:=0;
while not eof(f) do
begin
read(f,ch);
if find_str[i]=ch then
if i=length(find_str) then { сравниваем строки }
begin
ERRORLEVEL:=1; { присваиваем переменной нужное значение по заданию }
break; { прекращаем цикл }
end
else
inc(i)
else
i:=1;
end;
writeln('ERRORLvL=',ERRORLvL);
readln;
close(f);
halt(ERRORLvL); { завершает программу с кодом завершения ERRORLvL }
end.
Работа командного файла:
Если отсутствует программа:
Если не найден текстовый файл:
Если не найдены оба:
Если строка найдена:
Если строка не найдена:
Вывод:
В данной лабораторной работе мы изучили основы работы с пакетными файлами. А именно научились выполнять поиск определенных файлов, поиск строк в текстовом файле. Так же мы анализировали системную переменную ERRORLEVEL.
Документ
Категория
Рефераты
Просмотров
58
Размер файла
77 Кб
Теги
gotovaya, laba
1/--страниц
Пожаловаться на содержимое документа