program aeae;
uses crt;
const
N=100;
type
Fbin=text;
MyAr=array[1..N] of char;
var
F1,F2:Fbin;
Num,M,a:longint;
Ar1,Ar2:MyAr;
i,j,count,nn:integer;
ch:char;
begin
   clrscr;
   Assign(F1,'Y:\text1.txt');
   Reset(F1);
   Assign(F2,'Y:\text2.txt');
   Rewrite(F2);
   count:=0;
   while not eof(F1) do begin
      read(F1,ch);
      inc(count);
      Ar1[count]:=ch;
   end;
   for i:=1 to count do begin
      Ar2[i]:=Ar1[count+1-i];
   end;
   for i:=1 to count do
       write(F2,Ar2[i]);
   close(F1);
   close(F2);
   readln;
end.

Similar

Эксперт

41792 / 34177 / 6122

Регистрация: 12.04.2006

Сообщений: 57,940

13.05.2018, 16:30

Ответы с готовыми решениями:

Ассемблер STM8
Из спортивного интереса написал ассемблер для микроконтроллеров STM8....

Составить программу на языке ассемблер в симуляторе или эмуляторе процессора TMS320C40
Помогите составить программу на языке ассемблер в симуляторе или эмуляторе...

Из паскаля в ассемблер
Написал очень простую прогу на паскале, теперь нужно перевести её на...

Перевести с Паскаля в Ассемблер
Имею вот такой код программы на Паскале. Кто может помочь перевести его на...

Ассемблер и переменные Паскаля
"Разработать программу на ассемблере, которая считывает адреса переменных...

MoreAnswers

Эксперт

37091 / 29110 / 5898

Регистрация: 17.06.2006

Сообщений: 43,301

13.05.2018, 16:30

Перевод с Паскаля на Ассемблер
О Великие Кодеры на Ассемблере, помогите перевести с Паскаля на Ассемблер одну...

Перевод Паскаля в Ассемблер
Даны натуральное число N и последовательность A1, A2, ... An, состоящая из N...

Перевести программу с Паскаля на Ассемблер
Помогите пожалуйстаа:wall:program p; var a,b,c,d:real; begin...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх