Дано натуральное трехзначное число n. составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч используя текстовые файлы input, output.

program pr1; uses crt; var fl1,fl2: text; n,tmp: string; beginclrscr; assign(fl1,'input.txt'); assign(fl2,'output.txt'); reset(fl1); readln(fl1,n); close(fl1); tmp: =copy(n,length(n),1); n: =tmp+n; rewrite(fl2); writeln(fl2,n); close(fl2); end.

 

Можно выделить следующие этапы разработки баз данных:

· проектирование;

· программная реализация;

· заполнение и эксплуатация.

Этап проектирования – это теоретическое построение исходной информационной модели базы данных. Он включает в себя:

· сбор информации о предметной области, ее структуре, входных и выходных информационных потоках данных, изучение задач автоматизации, анализ и выделение объектов исходной системы, и определение связей между ними;

· определение свойств и характеристик для каждого объекта в БД, которым назначаются поля (атрибуты), составляются исходные таблицы и отношения между ними, выполняется определение элементов данных, включаемых в базу данных, ограничения на значения данных и т.п.

Больше мороки чем type int=100..999; var x: int; begin   readln(x);   case (x div 100) of     1: write('сто ');     2: write('двести ');     3: write('триста ');     4: write('четыреста ');     5: write('пятьсот ');     6: write('шестьсот ');     7: write('семьсот ');     8: write('восемьсот ');     9: write('девятьсот ');   end;   if  ((x mod 100) div 10)=1 then     case (x mod 10) of       0: write('десять  ');       1: write('одиннадцать  ');       2: write('двенадцать  ');           3: write('тринадцать  ');         4: write('четырнадцать  ');         5: write('пятнадцать  ');         6: write('шестнадцать  ');         7: write('семнадцать  ');         8: write('восемнадцать  ');             9: write('девятнадцать  ');     end   else     begin       case ((x mod 100) div 10) of         2: write('двадцать  ');           3: write('тридцать  ');             4: write('сорок  ');             5: write('пятьдесят  ');           6: write('шестьдесят  ');             7: write('семьдесят  ');             8: write('восемьдесят  ');           9: write('девяносто  ');     end;     case (x mod 10) of       1: write('один');       2: write('два');           3: write('три');             4: write('четыре');             5: write('пять');           6: write('шесть');             7: write('семь');             8: write('восемь');           9: write('девять');     end;     end; end.