ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!НУЖНО СРОЧНО!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ.
Answers & Comments
eyats
// Программа загружает файл, если есть, просит ввести 7 строк // и затем сохраняет обратно. Если файла нет, он создается.
Program WeekDays; uses System,Classes;
var SL:TStringList; S:string; i:integer;
const FilName='NEDELYA.TXT';
begin SL:=TStringList.Create; if FileExists(FileName) then SL.LoadFromFile(FileName); for i:=1 to 7 do begin Readln(S); SL.Add(S); end; SL.SaveToFile(FileName); SL.Free; end.
=====
//Программа считывает текстовый файл и выводит на экран
Program ShowTextFile; uses System,Classes;
var SL:TStringList; S:string; i:integer;
const FilName='NEDELYA.TXT';
begin SL:=TStringList.Create; SL.LoadFromFile(FileName); for i:=1 to SL.Count-1 do Writeln(SL[i]); SL.Free; end.
1 votes Thanks 1
elenaklon
1. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели program p1; var fl: text; str: string; begin writeln('Введите названия дней недели через пробел. По окончании нажмите Enter'); assign(fl, 'C:\Users\ ...\Desktop\NEDELYA.txt'); rewrite(fl); readln(str); writeln(fl, str); close(fl); end.
2. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели, добавляя в конце "Monday Tuesday Wednesday Thursday Friday Saturday Sunday" program p2; var fl: text; str: string; begin writeln('Введите названия дней недели. По окончании нажмите Enter'); assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt'); rewrite(fl); readln(str); writeln(fl, str); write (fl,'Monday Tuesday Wednesday Thursday Friday Saturday Sunday'); close(fl); end.
3.Программа выводит на экран текст из файла NEDELYA.txt program p3; var fl: text; str: string; begin assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt'); Reset(fl); while not eof(fl)do begin readln(fl,str); writeln(str); end; close(fl); end.
Answers & Comments
// и затем сохраняет обратно. Если файла нет, он создается.
Program WeekDays;
uses System,Classes;
var SL:TStringList;
S:string;
i:integer;
const FilName='NEDELYA.TXT';
begin
SL:=TStringList.Create;
if FileExists(FileName) then SL.LoadFromFile(FileName);
for i:=1 to 7 do
begin
Readln(S);
SL.Add(S);
end;
SL.SaveToFile(FileName);
SL.Free;
end.
=====
//Программа считывает текстовый файл и выводит на экран
Program ShowTextFile;
uses System,Classes;
var SL:TStringList;
S:string;
i:integer;
const FilName='NEDELYA.TXT';
begin
SL:=TStringList.Create;
SL.LoadFromFile(FileName);
for i:=1 to SL.Count-1 do Writeln(SL[i]);
SL.Free;
end.
program p1;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели через пробел. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ...\Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
close(fl);
end.
2. Программа сохраняет в файл NEDELYA.txt введённые названия дней недели, добавляя в конце "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
program p2;
var
fl: text;
str: string;
begin
writeln('Введите названия дней недели. По окончании нажмите Enter');
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
rewrite(fl);
readln(str);
writeln(fl, str);
write (fl,'Monday Tuesday Wednesday Thursday Friday Saturday Sunday');
close(fl);
end.
3.Программа выводит на экран текст из файла NEDELYA.txt
program p3;
var
fl: text;
str: string;
begin
assign(fl, 'C:\Users\ ... \Desktop\NEDELYA.txt');
Reset(fl);
while not eof(fl)do begin
readln(fl,str);
writeln(str);
end;
close(fl);
end.
... заменяется правильным адресом файла
PascalABCNET