Главная

Контакты

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

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

begin. fori:=1 to15 do. fori:=1 to15 do. fori:=1 to15 do. fori:=1 ton do. fori:=1 ton do. fori:=1 tolength(s)-1 do. if(s[i]='f') and(s[i+1]='b') then

begin

 randomize;

fori:=1 to15 do

   a[i]:=5-random(20);

fori:=1 to15 do

ifa[i]=0 thena[i]:=sqr(i);

writeln('poluchennyj massiv');

fori:=1 to15 do

   write(a[i]:8:2);

readln;

end.

7. Сконструируйте программу позволяющую найти максимальный и минимальный элемент одномерного массива.

programznachenie;

constn=10;

vara:array[1..n] ofinteger;

i: integer;

max,min:integer;

begin

 randomize;

fori:=1 ton do

   a[i]:=5-random(10);

max:=a[1];

min:=a[1];

fori:=1 ton do

begin

ifa[i]>max thenmax:=a[i];

ifa[i]<min thenmin:=a[i];

end;

writeln('maximum - ',max);

writeln('minimum - ',min);

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для определения номера четверти координатной плоскости, которой принадлежит точка с координатами (x,y) при условии, что x 0, y 0.

programchetvert;

varx,y:real;

begin

 writeln('vvedite koordinaty');

readln(x,y);

if(x>0) and(y>0) thenwriteln('1 chetvert');

if(x<0) and(y>0) thenwriteln('2 chetvert');

if(x<0) and(y<0) thenwriteln('3 chetvert');

if(x>0) and(y<0) thenwriteln('4 chetvert');

if(x=0) or(y=0) thenwriteln('nevernyi vvod');

readln;

end.

9. Сконструируйте программу, позволяющую в данной строке символов определить, стоят ли в данной строке подряд символы f и b.

programsimvol;

vars:string;

i:integer;

begin

 writeln('vvedite stroky');

readln(s);

fori:=1 tolength(s)-1 do

if(s[i]='f') and(s[i+1]='b') then

                        begin

                              writeln('imeetsja');

                          break;

                        end;

readln;

end.

10. Сконструируйте программу определяющую количество отрицательных элементов в массиве К(n) (n<=100) заполненном случайными числами от -15 до 15.

programznachenie;

constn=10;

vara:array[1..n] ofinteger;

i: integer;

k:integer;