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.

Эксперт

41792 / 34177 / 6122

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

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

13.05.2018, 16:30

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

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

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

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

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

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

Answers

Эксперт

37091 / 29110 / 5898

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

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

13.05.2018, 16:30

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

перевод паскаля в ассемблер. очень нужен
Пожалуйста, помогите перевести программу из паскаля в ассемблер! uses crt; var...

Ассемблер в паскале: как загрузить массив во встроенный ассемблер и произвести над любым из его чисел сложение(вычитание).
хочу написать программу в паскале с использованием встроенного ассемблера, но прежде чем начать...

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

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

Опции темы

Наверх