Главная

Контакты

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

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

begin. fori:=-15 to5 do. fori:=1 ton do. fori:=1 ton do. fori:=1 ton do. fori:=1 ton do

begin

 writeln('chislo | znachenie ');

fori:=-15 to5 do

begin

     y:=sin(i)/cos(i);

writeln(i:4,y:8:3);

end;

readln;

end.

21. Сконструируйте программу формирования одномерного массива А(10)  по следующему принципу: четные элементы равны квадрату индекса, а нечетные его обратной величине.

programmassive;

constn=10;

vara:array[1..n] ofinteger;

i,m:integer;

begin

fori:=1 ton do

begin  

if(i mod2)=0 thena[i]:=sqr(i);

if odd(i) then a[i]:=-i;

end;   

writeln('elementy massiva');

fori:=1 ton do

   write(a[i]:4);

readln;

end.

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

programpramoug;

vara1,b1,a2,b2:real;

s1,s2:real;

procedurepl(a,b:real;vars:real);

begin

 s:=a*b;

end;

begin

 writeln('vvedite storony 1 pramougolnika');

readln(a1,b1);

writeln('vvedite storony 2 pramougolnika');

readln(a2,b2);

pl(a1,b1,s1);

  pl(a2,b2,s2);

ifs1=s2 thenwriteln('ploschad odinakova')

      elsewriteln('ploschad raznaja');

readln;

end.

1. Сконструируйте программу для определения номера месяца, в котором количество пропусков занятий студентом было наименьшим; количество пропусков за каждый месяц в течение года содержится в одномерном массиве.

programznachenie;

constn=12;

vara:array[1..n] ofinteger;

i: integer;

k,min:integer;

begin

 randomize;

fori:=1 ton do

   a[i]:=random(30);

min:=a[1];

k:=1;

fori:=1 ton do

ifa[i]<min

   then

     begin

           min:=a[i];

       k:=i;

     end; 

write('nomer ',k:4);

readln;

end.

1. Сконструируйте программу вычисления суммы арифметической прогрессии (в промежутке от a до n, шаг равен 1; a и n – задаются с клавиатуры).

programarifmet;

vara,i,n,s:integer;