Главная

Контакты

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

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

begin. fori:=1 ton do. fori:=1 ton do. fori:=1 to10 do. forj:=1 to10 do. if(a=0) then. ifb=0 then

1. Сконструируйте программу для подсчета количества пятизначных чисел, состоящих из цифр 1,2,3,4,5.

2. Сконструируйте программу заполнения одномерного массива В(n) так, чтобы каждый элемент с четным индексом был равен половине своего номера, а каждый элемент с нечетным индексом - 0.

programmassive;

constn=10;

vara:array[1..n] ofreal;

i:integer;

begin

fori:=1 ton do

ifodd(i) thena[i]:=0

         elsea[i]:=i/2;

writeln('elementy massiva');

fori:=1 ton do

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

readln;

end.

1. Сконструируйте программу для нахождения произведения максимальных элементов массивов a[1..10] и b[1..10], используя процедуру для определения максимального элемента массива.

programmassive;

typemass=array[1..10] ofreal;

vara,b:mass;

 max1,max2:real;

pr:real;

j:integer;

proceduremaximum(m:mass; varz:real);

vari:integer;  

begin

 z:=m[1];

fori:=1 to10 do

ifm[i]>z thenz:=m[i];

end;

begin

 randomize;

forj:=1 to10 do

begin

     a[j]:=10 - random(30);

  b[j]:=2 - random (10);

end;

maximum(a,max1);

maximum(b,max2);

pr:=max1*max2;

writeln('Iskomoe proizvedenie - ',pr:8:3);

readln;

end.

4. Сконструируйте программу для нахождения корней квадратного уравнения ax²+bx+c=0, где a,b,c вводятся с клавиатуры (предусмотреть все возможные ошибки).

programuravn;

vara,b,c:real;

d:real;

x1,x2:real;

begin

 writeln('vvedite a,b,c');

readln (a,b,c);

if(a=0) then

begin

  ifb=0 then

     ifc=0

        thenwriteln ('uravnenie imeet beskonechnoe mnojestvo reshenij')

        elsewriteln ('net reshenij');

end

else

begin

       d:=sqr(b)-4*a*c;

      ifd<0 thenwriteln ('net reshenij')

          else

             begin

                    x1:=((-b)-sqrt(d))/(2*a);

                x2:=((-b)+sqrt(d))/(2*a);

                writeln ('x1=',x1:8:2);

                writeln ('x2=',x2:8:2);

             end;

end;

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления расстояния между двумя точками с координатами (x1;y1) и (x2;y2) по следующей формуле: .

program rasstojanie;

{$APPTYPE CONSOLE}

uses

SysUtils;

var  x1,y1,x2,y2:real;

   rasst:real;

begin

writeln('vvedite koordinaty 1 tochki');

readln(x1,y1);

writeln('vvedite koordinaty 2 tochki');

readln(x2,y2);

rasst:=sqrt (sqr(x2-x1)+sqr(y2-y1));

writeln('rasstojanie = ',rasst:8:2);

readln;

end.

6. Сконструируйте программу позволяющую заменить в заданном массиве М(15) нулевые элементы квадратами их индексов.

programzamena;

vara:array[1..15] ofreal;

i: integer;