- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
Procedure ChangeDataBase(var phone:cellphone);
var ch:char;
Begin clrscr;
With Phone do
Begin Line;
TextColor(Cyan); Writeln(' Выберите тип аппарата: '); TextColor(White);
Writeln(' [0-Телефон | 1-Смартфон]');
Repeat
Ch:=Readkey;
if (Ch in [#48,#49]) then
Begin
if (Ch = #48) then Types:=('Телефон');
if (Ch = #49) then Types:=('Смартфон');
end
else
Begin
TextColor(Red); Writeln(' ОШИБКА: Неверный диапазон! Повторите ввод...')
end;
Until (Ch in [#48,#49]);
TextColor(Cyan); Write(' Тип аппарата: ');TextColor(Yellow); Writeln(Types); Line;
TextColor(Cyan); Write(' Производитель: '); TextColor(Yellow); Readln(Maker);
TextColor(Cyan); Write(' Модель: '); TextColor(Yellow); Readln(Model);
Line;
TextColor(Cyan); Writeln(' Выберите тип корпуса: '); TextColor(White);
Writeln(' [0-Классический | 1-Раскладной | 2-Слайдер]');
Repeat
Ch:=Readkey;
if (Ch in [#48..#50]) then
Begin
if (Ch = #48) then Body:=('Классический');
if (Ch = #49) then Body:=('Раскладной');
if (Ch = #50) then Body:=('Слайдер');
end
else
Begin
TextColor(Red); Writeln(' ОШИБКА: Неверный диапазон! Повторите ввод...')
end;
Until (Ch in [#48..#50]);
TextColor(Cyan); Write(' Тип корпуса: ');TextColor(Yellow); Writeln(Body); Line;
TextColor(Cyan); Writeln(' Выберите операционную систему: '); TextColor(White);
Writeln(' [0-Asha | 1-Android | 2-Bada OS | 3-iOS | 4-Symbian ]');
Writeln(' [5-Windows Phone 7 | 6-Windows Phone 8 | 7-Другая]');
Repeat
Ch:=Readkey;
if (Ch in [#48..#55]) then
Begin
if (Ch = #48) then Os:=('Asha');
if (Ch = #49) then Os:=('Android');
if (Ch = #50) then Os:=('Bada OS');
if (Ch = #51) then Os:=('iOS');
if (Ch = #52) then Os:=('Symbian');
if (Ch = #53) then Os:=('Windows Phone 7');
if (Ch = #54) then Os:=('Windows Phone 8');
if (Ch = #55) then Os:=('Другая');
end
else
Begin
TextColor(Red); Writeln('ОШИБКА: Неверный диапазон! Повторите ввод...')
end;
Until (Ch in [#48..#55]);
TextColor(Cyan); Write(' Операционная система: ');TextColor(Yellow); Writeln(Os); Line;
TextColor(Cyan); Write(' Цена: '); TextColor(Yellow); Readln(Price);
end;
LastGlobalMenu; {Возврат в основное меню}
end;
Follow us!