Главная

Контакты

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

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

Билет номер 1. Билет номер 2. repeat. fori:=1 to10 do. fori:=1 to10 do. ifa[i] < 0 then

Билет номер 1

1 часть

· Алгоритм - это однозначно определенная последовательность действий, записанная на понятном исполнителю алгоритмическом языке и определяющая процесс перехода от исходных данных к результату.

· Блок-схема–это последовательность блоков, предписывающих выполнение определенных операций, и связей между этими блоками. Внутри блоков указывается информация об операциях, подлежащих выполнению. Конфигурация и размеры блоков, а также порядок графического оформления блок-схем регламентированы.

· Линейный , развлетвление , Циклические(виды алгоритмов)

2 часть

· programsum;

var

sm,n: integer;

begin

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

readln(n);

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

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

End.

3 часть

https://www.youtube.com/watch?v=rJvfHhpAKSs

Билет номер 2

 varx,y:real;

begin

x:=-6;

writeln('x':4,'y':10);

repeat

 y:=tan(x-4)/(x*x); // Y=tg(X-4)/X? Значения X изменяются от -4 до 4 с шагом 2.

x:=x+2;

writeln(x:4,y:10:3);

untilx>2;

end.

Билет 3

programsum;

var

sm,n: integer;

begin

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

readln(n);

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

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

End.

билет 4

programbilet_4;

var

k:array[1..12] ofinteger;

i: integer;

beginrandomize;

 writeln ('ДО');

 fori:= 1 to12 do

 begin

 k[i] := random(21);

 write(k[i], ' ')

 end;

 writeln;

 writeln('ПОСЛЕ');

 fori:= 1 to12 do

 begin

 k[i] := k[i] * (-1);

 write(k[i], ' ');

 end;

 end.

Билет 5

programbillet5;

var

a:array[1..10] ofinteger;

i,u,m:integer;

begin

fori:=1 to10 do

begin

Writeln('Введите ',i,' элемент массива');

read(u);

a[i]:=u;

end;

write('Массив: ',a);

fori:=1 to10 do

begin

ifa[i] < 0 then

m:=m+ a[i];

end;

writeln;

writeln('Сумма отр. элементов равна ',m);

end.

билет 6

ProgramProject1;

vari, max, min:integer;

 mass:array[0..9] ofinteger;

 begin randomize;

 fori:=1 to9 do

 mass[i]:=Random(100);

 max:=0;

 min:=100;

 fori:=1 to9 do