Файл: Российский государственный социальный университет Итоговый контроль по дисциплине Программирование.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 24.10.2023
Просмотров: 24
Скачиваний: 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;
}