Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Файлы
Доброго времени суток народ! Нужно решить 2 задачи

1 Преобразовать файл, удалив последнее слово в каждой строке.

Code
Program lab_9;
uses crt;
type ff=text;
procedure create(var s:string; n:byte);
var f1:ff; i:byte;
begin
assign(f1,s);
rewrite(f1);
readln(n);
for i:=1 to n do
begin
readln(s);
write(f1,s);
end;
close(f1);
end;
Procedure delete(Var s:string; n:byte);
var f1:ff; i,k,l,j:byte;
begin
assign(f1,s);
rewrite(f1);
while not eof(f1) do
begin
for i:=1 to n do
begin
readln(f1,s);
k:=length(s);
begin
for i:=k downto 1 do
begin
if s[j]=' 'then
l:=j;
end;
s[0]:=#l;

ПОМОГИТЕ ДОВЕСТИ ДО УМА!!!!!

1 | Автор: Гамбит | 2010-02-01, 20:06   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: