Численное решение модельного уравнения
| Категория реферата: Рефераты по математике
| Теги реферата: права человека реферат, контрольные работы 8 класс
| Добавил(а) на сайт: Ясавеев.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
else If ch='5' then SelectFunction:=5
else
begin
Sound(400); Delay(100); NoSound; GoTo Metka1;
end;
GoToXY(59,8);TextColor(12);WriteLn(SelectFunction); TextColor(11); GoToXY(11,12);
Write('Вы будете работать со стандартными параметрами (цифра ~1~)');
GoToXY(22,13); Write('или введете свои данные (цифра ~2~) ?');
Metka2: ch:=ReadKey;
If ch='1' then Data:=1
else If ch='2' then Data:=2
else
begin
Sound(400); Delay(100); NoSound; GoTo Metka2;
end;
TextBackGround(9); TextColor(10); ClrScr;
{ Ввод начальных данных }
WriteLn; WriteLn('-------------------------------- Ввод данных ---------------------------------¬');
For k:=1 do 21 do WriteLn('¦ ¦');
WriteLn('L------------------------------------------------------------------------------');
TextColor(15); Window(3,3,77,23); Write(' Введите область рассчета по X от: ');
If Data=1 then
begin
x0:=0; Write(x0:1:0); WriteLn;
end
Рекомендуем скачать другие рефераты по теме: контрольные 7 класс, заказать дипломную работу.
Категории:
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата