Страница 1 из 1
помогите решить лабы по паскалю!!!
Добавлено: 22 май 2007, 00:24
Ispanec777
Пожалуйста помогите решить две лабы по Паскалю!!! Лабораторная №1 решение задачи с использованием типа "файл". Задача: Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке. :unsure: Лабораторная №2 решение задачи с помошью динамической памяти (УКАЗАТЕЛИ!!!). Задача: Даны натуральное число n, целые числа а1. ...... аn. Выяснить имеются ли среди чисел а1. ...... аn совпадающие! ПОМОГИТЕ!!! Мне очень срочно!!! Заранее благодарю! ICQ #357894047 
Re: помогите решить лабы по паскалю!!!
Добавлено: 22 май 2007, 08:47
BHy4ok
Я так понимаю на экран никакой информации выводить не нужно[#1]?
В коде заменишь путь к исходному и выходному файлам[Предварительно не забудь создать исходный файл на диске, иначе программа не будет работать].
#1:
Код: Выделить всё
uses crt;
var
b,s:string;
i,j,k:integer;
f,f1:text;
begin ClrScr;
i:=1 ;
assign(f,'C:/f.txt');
reset(f);
read(f,s);
b:=s;
for j:=length(s) downto 1 do
begin
b[j]:=s[i];
i:=i+1;
Assign(f1,'C:/g.txt');
rewrite(f1);
writeln(f1,b);
end; close(f);close(f1);
end.