Главная

Контакты

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

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

begin. fori:=1 tolength(s) do. whilei<=length(s)-1 do. fori:=1 ton do. fori:=1 ton do. fori:=1 ton do. fori:=1 tom do. fori:=1 tom do. fori:=1 tom do

begin

 writeln('vvedite stroky');

readln(s);

k:=0;

fori:=1 tolength(s) do

ifs[i]=' ' thenk:=k+1;

writeln('kolichestvo slov-',k+1);

readln;

end.

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

programfact;

varn:integer;

r:real;

functionf(k:integer):real;

begin

ifk=1 thenf:=1

    elsef:=f(k-1)*k;

end;

begin

 writeln('vvedite chislo');

readln(n);

r:=f(n);

writeln('factorial raven ',r:15:1);

readln;

end.

1. Сконструируйте программу, которая удаляет пробелы в строке.

programslova;

vars:string;

i,k:integer;

begin

 writeln('vvedite stroky');

readln(s);

k:=0;

i:=1;

whilei<=length(s)-1 do

begin

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

   then

     begin

           delete(s,i,1);

       i:=i-1;

     end

   elsei:=i+1;

end;

writeln('novaja stroka - ',s);

readln;

end.

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

programznachenie;

constn=10;

vara:array[1..n] ofinteger;

i: integer;

max,min:integer;

k1,k2,z:integer;

begin

 randomize;

fori:=1 ton do

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

max:=a[1];

min:=a[1];

k1:=1;

k2:=1;

fori:=1 ton do

begin

ifa[i]>max

   then

     begin

           max:=a[i];

       k1:=i;

     end;

    ifa[i]<min

   then

     begin

           min:=a[i];

       k2:=i;

     end; 

end;

z:=a[k1];

a[k1]:=a[k2];

a[k2]:=z;

writeln('massiv ');

fori:=1 ton do

   write(a[i]:4);

readln;

end.

19. Сконструируйте программу замены знака всех элементов с четными индексами в целочисленном векторе Т(m) (m<=100) на противоположный.

programmassive;

constn=100;

vara:array[1..n] ofinteger;

i,m:integer;

begin

 writeln('vvedite razmer massiva');

readln(m);

randomize;

fori:=1 tom do

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

fori:=1 tom do

if(i mod2)=0 thena[i]:=a[i]*(-1);

writeln('elementy massiva');

fori:=1 tom do

   write(a[i]:4);

readln;

end.

1. Сконструируйте программу вычисления значений функции F1, аргумент которой задан интервалом целых значений отрезка [a₁, b₁]. Шаг изменения значений аргумента принять равным единице. Данные для решения: F1=Tg(x), [a₁, b₁]=[-15,5].

programznach;

vary:real;

i:integer;