CRT

@shadowik · Регистрация: 06.12.2009

Студворк — интернет-сервис помощи студентам

Написать програму, которая проверяет вводимые числа. Если какое-нибудь из чисел больше 100, то нужно вывести цветное окно, окаймленное рамкой, с сообщением об ошибке ввода.

Его уже делали раз, но там не правильно. В смысле сделали правильно, но не тем способом что надо... Надо по другому сделать, а как не знаю.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var x:array[1..100]of integer;
 Z,Otv,Xn,Xk:real;  i:byte;
 
 
Procedure Nod(a:real);
var f:real;
begin
writeln('При Х=',xn);
F:=(sin(sqr(a))+1)/(cos(sqr(a))+1);
writeln('   F= ',f,'     ');
Otv:=exp(2/3*ln(F+2))/sqr(sin(F)/cos(f));
writeln('   Z= ',Otv,'     ');
end;
 
 
begin
writeln('Xn,Xk');
readln(Xn,Xk);
repeat
begin
Nod(xn);
Xn:=Xn+1;
end;
until xn>xk;
readln;
end.

Тут надо токо вывести в рамке, что число больше 100, а я не пойму где и как?!

@Vatryshka · 23.12.2009, 01:29

shadowik, ты в КТУ учишься?? У меня была эта задача, я сдал поставили 4 балла. Не знаю, что ты там нашел не правильного )

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program n2;
uses crt;
const A=#218; B=#196; C=#191;
      D=#179; E=#192;  F=#217;
var i,x:byte;
begin
clrscr;
TextBackGround(Black); Clrscr;
repeat
readln(x)
until x>100;
TextBackGround(5); TextColor(15);
gotoxy(30-1,13-1); write(A);
for i:=30 to 60 do write(b);
write(c);
for i:=13 to 19 do
begin
gotoxy(30-1,i); write(D);
gotoxy(60+1,i); write(D);
end;
gotoxy(30-1,19+1); write(E);
for i:=30 to 60 do write(B);
write(F);
window(30,13,60,19);
TExtBackGround(5); clrscr;
for i:=1 to 19-13 do;
write('Eto 4islo bolwe 100':120);
readkey
End.

Добавлено через 1 минуту

Pascal
1
2
3
4
5
6
7
8
9
Procedure Nod(a:real);
var f:real;
begin
writeln('При Х=',xn);
F:=(sin(sqr(a))+1)/(cos(sqr(a))+1);
writeln(' F= ',f,' ');
Otv:=exp(2/3*ln(F+2))/sqr(sin(F)/cos(f));
writeln(' Z= ',Otv,' ');
end;

А это зачем вообще?

@shadowik · 23.12.2009, 01:43 **[ТС]**

Сообщение от Vatryshka

shadowik, ты в КТУ учишься?? У меня была эта задача, я сдал поставили 4 балла. Не знаю, что ты там нашел не правильного )

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program n2;
uses crt;
const A=#218; B=#196; C=#191;
      D=#179; E=#192;  F=#217;
var i,x:byte;
begin
clrscr;
TextBackGround(Black); Clrscr;
repeat
readln(x)
until x>100;
TextBackGround(5); TextColor(15);
gotoxy(30-1,13-1); write(A);
for i:=30 to 60 do write(b);
write(c);
for i:=13 to 19 do
begin
gotoxy(30-1,i); write(D);
gotoxy(60+1,i); write(D);
end;
gotoxy(30-1,19+1); write(E);
for i:=30 to 60 do write(B);
write(F);
window(30,13,60,19);
TExtBackGround(5); clrscr;
for i:=1 to 19-13 do;
write('Eto 4islo bolwe 100':120);
readkey
End.

Добавлено через 1 минуту
Procedure Nod(a:real);
var f:real;
begin
writeln('При Х=',xn);
F:=(sin(sqr(a))+1)/(cos(sqr(a))+1);
writeln(' F= ',f,' ');
Otv:=exp(2/3*ln(F+2))/sqr(sin(F)/cos(f));
writeln(' Z= ',Otv,' ');
end;

А это зачем вообще?

Я точно не знаю, и да я в КТУ учусь

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .