Нужно прокоментировать две программы - Pascal - Ответ 857215

@ЛЮМЕН · Регистрация: 11.05.2010

Студворк — интернет-сервис помощи студентам

Прокоментируйте пожалуйста если можете программы...Просто надо сделать по такому же принципу программы, а сам текст программ не полностью понял, ток в общих чертах.....

задание №1:
Задан текстовый файл. Выполнить перемещение этого файла из одного места в
другое.

Pascal

program 10;
uses crt;
var f,g:text;
    nf,ng,s:string;
begin
clrscr;
write('Vvedite put k failu: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('File not found: ',nf);
  readln;
  exit;
 end;
write('Vvedite novuy put k failu: ');
readln(ng);
ng:=ng+'.txt';
assign(g,ng);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  writeln(g,s);
 end;
close(f);
close(g);
erase(f);
write('Fail ',nf,' peremrshen v fail ',ng);
readln
end.

задание №2:
Это собственно меню)

Pascal

program 9;
uses crt;
var K,i:integer;
Kod:char;
M:array[1..10] of string[10];
begin
clrscr;
gotoxy(25,1);
writeln('vybor yazuka programirovaniya');
M[1]:=('Pascal ');          {собственно пункты меню}
M[2]:=('Fortran');
M[3]:=('Basic  ');
M[4]:=('C      ');
gotoxy(10,10);
textbackground(7);
textcolor(0);
write(M[1]);
gotoxy(30,10);
textbackground(0);
textcolor(15);
write(M[2]);
gotoxy(50,10);
write(M[3]);
gotoxy(70,10);
write(M[4]);
gotoxy(10,10); K:=1;
while true do
begin
Kod:=readkey;                     {тут как я понял сделано чтоб кнопки букв, которые совпадают с
                                          кодами  стрелок не воспринимались, или что-то типа того}
if Kod=#0 then Kod:=readkey;
case Kod of
#75: begin                   {Стрелка влево}    
     gotoxy(20*K-10,10);
     textbackground(0);
     textcolor(15);
     write(M[K]);
     if K>1 then K:=K-1 else K:=4;
     gotoxy(20*K-10,10);
     textbackground(7);
     textcolor(0);
     write(M[K]);
     end;
#77: begin                   {стрелка вправо}    
     gotoxy(20*K-10,10);
     textbackground(0);
     textcolor(15);
     write(M[K]);
     if K<4 then K:=K+1 else K:=1;
     gotoxy(20*K-10,10);
     textbackground(7);
     textcolor(0);
     write(M[K]);
     end;
#13: begin
     textbackground(0);  {Enter-выбор пункта}
     textcolor(15);
     gotoxy(1,15);
     writeln('Vubran yazuk programirovaniya: ',M[K]);
     end;
#27: begin           {ESC вроде прерывание программы}
     halt;
     end;
end;
end;
end.

Добавлено через 14 часов 0 минут
Очень нужно разобраться в коде программ чтобы сделать аналог.

Вернуться к обсуждению:
Нужно прокоментировать две программы Pascal

Следующий ответ

Другие темы раздела
Pascal Помогите решить задачи на Паскале. Помогите решить задачи на Паскале. https://www.cyberforum.ru/ pascal/ thread153576.html	График энтропии бинарного сообщения Pascal Построить график энтропии бинарного сообщения H (x) =- p * log (2) / log (p) - (1-p) * log (1-p) как функцию вероятности одного из сообщений p, если 0 <= p <= 1
Pascal Запись с вариантами задание будет на перездаче экзамена в уневере. пропустил лекции на которых обьясняли как его делать. помогите пожалуйста. Завтра перездача. https://www.cyberforum.ru/ pascal/ thread153370.html	Pascal Двухмерные массив.Замена строк местами. https://www.cyberforum.ru/ pascal/ thread153321.html В двухмерном массиве первую строку поменять местами с последней строкой, вторую строку с предпоследней строкой и так далее. Я понимаю, что это уже слишком, так много просить, но если можете, то помогите пожалуйста)
Pascal Одномерный массив.Упорядочение по уменьшению значений) В одномерном массиве выполнить упорядочение по уменьшению значений элементов. Помогите пожалуйста...)	Pascal Считывание нажатой клавиши https://www.cyberforum.ru/ pascal/ thread153313.html Здравствуйте Помогите пожалуйста с написание программы которая считывает нажатую клавишу и после записывает ее в файл.. Ну если не поняли то Пример: Нажимаю клавишу "А" программа выявляет что это кнопка "А" и записывает ее в файл.. Затем жму "О" программа записывает ее в файл после "А".. т.е. в файле уже будет "АО"... ну как то так.. Заранее спасибо..
Pascal Двухмерный массив.Исключение строки.Нужно исправить программу) https://www.cyberforum.ru/ pascal/ thread153305.html Вот собственно что нужно: В двухмерном массиве исключить строку с заранее заданным индексом. Проблема в том, что если я ввожу индекс больше количества строк, то исключается последняя, если меньше-первая....Собственно так не должно быть.... Помогите исправить пожалуйста) program p7; var a:arrayof integer;	Pascal В двухмерном массиве первую строку поменять местами с последней строкой, вторую строку с предпоследней строкой и так далее. ))=))))))))))))))
Pascal В одномерном массиве выполнить упорядочение по уменьшению значений элементов. Сделайте плиз) https://www.cyberforum.ru/ pascal/ thread153276.html	Pascal Движение колобка Ребят помогите пожалуйста, чтобы колобок двигался без следов,а то раздражает как-то :) Вот код программки uses crt,graph,int_g;{int_g- самодельный модуль, инициализирующий граф.режим} var i,j,xp,yp,r:integer; x,y:integer; p:pointer; Procedure Fon; var size:integer; https://www.cyberforum.ru/ pascal/ thread153224.html
Pascal Сумма цифр-четное число. Напечатать все целые числа из отрезка , сумма цифр которых является четным числом. Подсчет суммы цифр числа и определение их четности оформить в процедуре (входной параметр: целое число; выходной параметр: логическая переменная).	Pascal Написать программу с функцией https://www.cyberforum.ru/ pascal/ thread153187.html Ещё раз нужна ваша помощь. Напечатать все целые числа из отрезка , сумма цифр которых является четным числом. Подсчет суммы цифр числа и определение их четности оформить в виде логической функции (входной параметр: целое число).

	15.07.2010, 10:24