Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Файлы
Цель работы
Овладение практическими навыками алгоритмизации и программирования файловых структур данных; проектирование структуры файла, вывод данных в файл, чтение данных из файла.
Литература
И.Г.Семакин, А.П.Шестаков «Основы программирования»
М., «Мастерство», 2002г.
Подготовка к работе
Включить компьютер
Загрузить операционную систему
Загрузить BORLAND Pascal 7.0
Задание. Составить программу на языке Pascal, используя тип текстовые файлы.
Вариант 1
Дана последовательность символов. Если эта последовательность встречается в файле более трех раз, то заменить ее на «***» или на «+++».
Вариант 2
Даны две последовательности символов. В тестовом файле заменить все вхождения первой последовательности на вторую.
Вариант 3
Дана последовательность символов. Посчитать, сколько раз она встречается в текстовом файле.
Вариант 4.
Дан текстовой файл. Вывести на экран те символы, которые встречаются в нем ровно один раз.
Вариант5
В текстовом файле каждую строку написать задом наперед, удалив из нее все пробелы.
Вариант 6
В текстовом файле записать целые и вещественные числа по одному в строке. Скопировать в другой текстовой файл только четные целые числа.
Вариант 7
Текстовой файл содержит натуральные числа. В другой файл поместить только те числа, корень из которых – натуральное число.
Вариант 8
Текстовой файл содержит целые положительные и отрицательные числа по одному в строке. Поместить эти числа в другой файл, заменив все отрицательные числа на их квадраты.
Вариант 9
Дан текстовой файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы в file.oth.
Вариант 10
Дан текстовой файл, содержащий вещественные числа по одному в строке. Поместить эти числа в другой файл по 6 в строку, перед десятичной точной оставить 5 знаков, после точки 8 знаков.
Содержание отчёта
Методические указания
Задание. Дан текстовый файл. Создать его копию, которая не должна содержать пустых строк. Сначала с клавиатуры запрашивается путь доступа к файлу до тех пор, пока файл не удастся открыть для чтения. Затем запрашивается другой путь доступа до тех пор, пока не выяснится, что не существует файла с таким именем, после чего информация из первого файла записывается во вновь созданный второй файл.
Program pr_14;
{$I-} {директива компилятора – выключение контроля ошибок ввода-вывода}
Var
fromF, toF : text;
fromName, toName string;
s : string;
begin
repeat
write(‘введите имя исходного файла ‘);
readln(fromName);
assign(fromF, fromName); {пытаемся открыть для чтения}
reset(fromF);
until(IoResult=0); {если открыть не удалось – на начало цикла}
repeat
write(‘введите имя файла-преемника’);
readln(toName);
assign(toF, toName); {проверка существования}
reset(toF); {если открыть удалось – на начало цикла}
until(Ioresult<>0); {открываем по-настоящему – для записи}
rewrite(toF);
while not Eof(fromF) do begin
{читаем строку из первого файла}
Readln(fromF, s);
Writeln(s); {выводим на экран}
If s<>’’ then writeln(toF, s); {выводим во второй файл}
End;
Clouse(fromF); clouse(toF); {закрываем оба файла}
Readkey
End.
Целью лабораторной работы является получение практических навыков в написании линейных программ для решения текстовых математических задач на языке Delphi.
4.1. Разработка алгоритма решения.
Алгоритм решения задачи - линейный и состоит из:
ввода значений a и b (катетов треугольника);
вычисления значения с (гипотенузы треугольника);
вычисления значения полупериметра;
вычисления значения площади треугольника S по формуле Герона;
вывода значения S (площади треугольника).
4.2. Ограничения на значения параметров
Стороны треугольника a и b должны быть положительны.
4.3. Вид диалогового окна программы:
4.3.Текст программы
procedure TForm1.Button1Click(Sender: TObject);
//описание переменных
var a,b,c,alfa,betta: real;
begin
//ввод данных
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
//вычисление гипотенузы
c:=sqrt(sqr(a)+sqr(b));
//вычисление значений углов в радианах
alfa:=arctan(a/b);
betta:=pi/2-alfa;
//перевод из радиан в градусы
alfa:=alfa*180/pi;
betta:=betta*180/pi;
//вывод значений
Label4.Caption:=' c = '+FloatToStr(c);
Label5.Caption:=' alfa = '+FloatToStr(alfa);
Label6.Caption:=' betta = '+FloatToStr(betta);
end;
4.4. Результаты работы программы
Результат работы программы может выглядеть, например, следующим образом:
Целью лабораторной работы является получение практических навыков в написании программ с использованием компонента RadioButton.
3.1. Форма программы.
3.2.Текст программы
procedure TForm1.Button1Click(Sender: TObject);
Var r1,r2,r: real;
begin
r1:=StrToFloat(Edit1.Text);
r2:=StrToFloat(Edit2.Text);
if RadioButton1.Checked then
r:=r1+r2
else
r:=r1*r2/(r1+r2);
Label4.Caption:=FloatToStrF(r,ffFixed,6,2)+ ' Ом';
end;
end.
3.3. Результаты работы программы
Целью лабораторной работы является получение практических навыков в работе с функциями точечной графики на языке Delphi.
procedure TForm1.Timer1Timer(Sender: TObject);
Var a,b,c,d: integer;
x: array[1..8]of integer;
begin
x[1]:=clBlue; x[2]:=clCream;
x[3]:=clGreen; x[4]:= clRed;
x[5]:=clGray; x[6]:= clMaroon;
x[7]:= clNavy; x[8]:= clOlive;
randomize();
Canvas.Brush.Color:=x[random(8)];
a:=random(ClientWidth);
b:=random(ClientHeight);
c:=a+round(random(ClientWidth)/5);
d:=b+round(random(ClientHeight)/5);
Canvas.FillRect(Rect(a,b,c,d));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=100;
Timer1.Enabled:=true;
end;
end.
27