ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!Необходимо Безотлагательно!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ.
ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!НУЖНО СРОЧНО!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ.
![](/content/imgs/34/https://ru-static.z-dn.net/files/df8/7ebfd41afd68f8cbf2a35292cefde89d.jpg)
2 ответа
Pashok
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.
... заменяется правильным адресом файла
PascalABCNET
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
Таисия Стамер
// Программка загружает файл, если есть, просит ввести 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.
// и потом бережёт назад. Если файла нет, он создается.
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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов