Российский государственный социальный университет

Итоговый контрольпо дисциплине «Программирование»

ФИО студента	Жакбаров Одилбек Очилбек угли
Направление подготовки	Информационные системы и технологии
Группа	ИСТ-Б-01-З-2021-2_ДИСТАНТ

Москва 202214. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд. l:=0;m:=0;for i:=1 to Length(s) do  if s[i] in ['0'..'9'] then Inc(l)  elsebegin    if l>m then m:=l;    l:=0  end;writeln('max digital sequence length is ',m);14. Даны координаты точек A, B, C, D. Вычислить площадь фигуры, образованной двумя треугольниками. Процедуры вычисления длины отрезка по координатам его концов, вычисления площади по формуле Герона.uses crt;var xa,ya,xb,yb,xc,yc: integer;          //целочисленные переменные для координат вершин    ab,bc,ca,s: real;                    //переменные для длин сторон function Dlina(x1,y1,x2,y2: integer):real;   //функция определеиния длины отрезка по координатам, входные параметры - координатыbeginDlina:= sqrt(sqr(y1-y2)+sqr(x1-x2));         //длина отрезкаend; function IsExiste (a,b,c: real): boolean;   //функция логического типа, проверка на существование треугольника с заданными сторонамиbeginIsExiste:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);end; function Square (a,b,c: real): real;         //функция определения площади треугольника, входные параметроы - длины строкон

---

beginSquare:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));end; beginwriteln ('Координаты вершины A ');           //запрашиваем и считываем координаты вершинreadln (xa,ya);writeln ('Координаты вершины B ');readln (xb,yb);writeln ('Координаты вершины C ');readln (xc,yc);ab:=Dlina(xa,ya,xb,yb);                     //вычисляем длины сторон с помощью функцииbc:=Dlina(xb,yb,xc,yc);ca:=Dlina(xc,yc,xa,ya);if  IsExiste (ab,bc,ca)                     //проверяем возможность существования такого треугольникаthen write ('Площадь треугольника = ',Square(ab,bc,ca):7:2)    //вычисляем алощадь с помощью функции//выводим     else write('Треугольника с такими сторонами не существует');  //или выводим, что не существуетreadkeyend. #include

 

using namespace std;

 

bool IsPrime( int x );

 

int main() {

    cout << "Все простые двузначные числа:" << endl;

    for ( int i = 11; i < 100; ++i )

        if ( IsPrime( i ) )

            cout << i << " ";

 

    return 0;

}

 

bool IsPrime( int x ) {

    if ( x <= 1 )

        return false;

 

    int d = 2;

    while ( d * d <= x && x % d != 0 )

        ++d;

    return d * d > x;

}

---

Смотрите также файлы

• Понятия здоровье и здоровый образ жизни Глава 2.docx

• азастан республикасы білім жне ылым министрлігі министерство образования и науки республики казахстан.docx

• Вариационный анализ на примере группы компаний Токарнофрезерный центр.docx

• Задача 1 Принятие Европейским парламентом и Советом Европейского Союза.pdf

• 3. Конструктивная критика.docx