Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

begin . ifmax<mass[i] then. fori:=0 to250 do. repeat. casei of. ifx >= 1000 then

 begin   

 ifmax<mass[i] then

 max:=mass[i];  

 ifmin>mass[i]

 thenmin:=mass[i];

 end;

 writeln('max: ', max);

 writeln('min: ', min);

 writeln('max + min = ', max+min);

 end.

Билет 7

Programbillet7;

usesGraphABC;

begin

FloodFill(0,0,clYellow);

Pen.Color:=clGreen;

Brush.Color:=clRed;

Rectangle(200,200,300,300);

end.

билет 8

var

x,y:real;

begin

x:=-3;

writeln('x':3,'y':15);

repeat;//Y=sin(4X+15)-X?. Значение X изменяется от -3 до 3 с шагом 0,5.

y:=sin(4*x+15)-(x*x);

x:=x+0.5;

writeln(' ');

writeln(x:3,y:20);

untilx>3;

end.

Билет 9

programbillet9;

usesGraphABC;

var

i:integer;

begin

floodfill(0,0,clBlue);

fori:=0 to250 do

SetPixel(random(WindowWidth),random(WindowHeight),clYellow);

end.

Билет 10

programbillet10;

var

x,y:real;

begin

x:=-10.75;

repeat

x:=x+0.75;

y:= tan(x-4)/sqr(x);

Writeln('X:= ',x,' Y:= ',y:10:5);

untilx >= 10;

end.

Билет 11

· programsum;

var

sm,n: integer;

begin

writeln('введи число: ');

readln(n);

sm:=(n mod10)+(n div10 mod10)++(n div100 mod10)+n div1000

writeln('Сумма 4-ёх чисел: ',sm);

End.

Билет 12

programbillet12;

vari:integer;

begin

writeln('Введите номер');

readln(i);

casei of

01: write('Республика Адыгея');

02: write('Республика Башкортостан');

03: write('Республика Бурятия');

04: write('Республика Алтай (Горный Алтай)');

05: write('Республика Дагестан');

06: write('Республика Ингушетия');

07: write('Кабардино-Балкарская Республика');

08: write('Республика Калмыкия');

09: write('Республика Карачаево-Черкессия');

10: write('Республика Карелия');

elsewriteln('Hеизвестно');

end;

end.

билет 13

varx:real;

begin

Writeln('Введите сумму покупки: ');

Read(x);

ifx >= 1000 then

begin

Writeln('Вам предоставляется скидка 10%');

x:=x - (x*0.1);

end;

Writeln('Сумма покупки составляет: ',x);

end.

Билет 14

programbillet14;

vari:integer;

begin

writeln('В каком году был основан Санкт-Петербург?');

writeln('Введите число и нажммите <enter>: ');

read(i);

Writeln();