Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
ЛЮМЕН
1 / 1 / 0
Регистрация: 11.05.2010
Сообщений: 27
1

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

15.07.2010, 10:24. Просмотров 399. Ответов 3
Метки нет (Все метки)

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

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
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 минут
Очень нужно разобраться в коде программ чтобы сделать аналог.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.07.2010, 10:24
Ответы с готовыми решениями:

нужно составить две программы
1. Составить программу для вычисления высоты треугольника, проведенной из...

прокоментировать програму
{$N+} uses crt; function Calculate(SMyExpression: string; digits: Byte):...

Две программы на for/while
Не могу решить две задачи: 1)В деревне Интернетовка все дома расположены...

Нужно написать программы.Очень нужно
Подпрограммы 1.Написать программу для вычисления суммы факториалов всех...

Две программы с массивами
Помогите пожалусто с этими задачами 1. Написать программу, которая в матрице...

3
xman0011
6 / 6 / 0
Регистрация: 13.07.2010
Сообщений: 46
15.07.2010, 12:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program 10; // Имя программы
uses crt; // Поключаем модуль CRT
var f,g:text;  // объявляем переменные
    nf,ng,s:string; //  объявляем переменные
begin ..начало программы
clrscr;  // очищаем экран, переводим курсор на верхний левый угол(1ая строка, первый столбец)
write('Vvedite put k failu: ');  //  Выводим на экран приглашение ввести путь к файлу
readln(nf); // считываем строку где должен быть указан путь к файлу
nf:=nf+'.txt';  // добавляем .тхт к веденной строке(пр. объявление луше сделатьVVEDITE IMYA FAILA VKLUCHAYA  YUCHAYA PUTZ
assign(f,nf);  // связываем переменную f с файлом
{$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);  // связываем переменную g с файлом
rewrite(g); //  очищаем файл связанный с переменной 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.  // конец программы
1
Jabbson
Эксперт по компьютерным сетям
3351 / 2425 / 746
Регистрация: 03.11.2009
Сообщений: 7,759
Записей в блоге: 3
15.07.2010, 14:54 3
Erase удаляет закрытый(!) внешний файл.

Не по теме:

Цитата Сообщение от xman0011 Посмотреть сообщение
Fail
File

1
ЛЮМЕН
1 / 1 / 0
Регистрация: 11.05.2010
Сообщений: 27
15.07.2010, 17:26  [ТС] 4
Спасибо!

P.S. другую можна не коментировать, я уже понял что и как)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.07.2010, 17:26

сформировать две программы
сформировать две программы с помощью которых: 1) сформировать текстовый...

Соединить воедино две программы
Есть программа отделяющая корни уравнений: uses crt; var ...

Написать две программы по массивам
1. Заменить элементы массива с нечетными номерами на квадраты этих элементов. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru