Файл: Российский государственный социальный университет Итоговый контроль по дисциплине Программирование.docx

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 24.10.2023

Просмотров: 30

Скачиваний: 2

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.




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




Итоговый контроль

по дисциплине «Программирование»


ФИО студента

Жакбаров Одилбек Очилбек угли


Направление подготовки

Информационные системы и технологии

Группа

ИСТ-Б-01-З-2021-2_ДИСТАНТ






Москва 2022
14. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.

l:=0;

m:=0;

for i:=1 to Length(s) do

  if s[i] in ['0'..'9'] then Inc(l)

  else begin

    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;   //функция определеиния длины отрезка по координатам, входные параметры - координаты

begin

Dlina:= sqrt(sqr(y1-y2)+sqr(x1-x2));         //длина отрезка

end;

 

function IsExiste (a,b,c: real): boolean;   //функция логического типа, проверка на существование треугольника с заданными сторонами

begin

IsExiste:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);

end;

 

function Square (a,b,c: real): real;         //функция определения площади треугольника, входные параметроы - длины строкон


begin

Square:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));

end;

 

begin

writeln ('Координаты вершины 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('Треугольника с такими сторонами не существует');  //или выводим, что не существует

readkey

end.


#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;

}