Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.
A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6
#include <iostream>
int main()
{
float x,y;
std::cout <<"X = ";
std::cin >> x;
std::cout <<"Y = ";
std::cin >> y;
float max=(x>y) ? x:y;
float min=(x<y) ? x:y;
std::cout <<"Big: " <<max <<std::endl
<<"Small: " <<min <<'\n';
return 0;
}
<html><head><title>Лабораторная №4</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body><span> <table border="1" cellspacing="0" rowspacing="0"></span><span> <caption><b>Горящие путевки!</b></caption></span> <tr> <th bgcolor="yellow">Италия</th> <th bgcolor="blue"> Франция</th> <th bgcolor="red"> Египет</th> </tr> <tr bgcolor="grey"> <td>На две недели - от 320$ </td> <td>Пять дней в Париже - 430$ </td> <td>Пирамиды - 450$ </td> </tr> <tr> <td>На неделю в РИМ - 250$ </td> <td>Замки Луары - 530$ </td> <td>Shop-тур - 270$</td> </tr> <tr></tr>> <td colspan="2">Италия - Франция 5 Дней от 400$</td><span> <td rowspan="2">Долина Нила - от 300$ </td></span> </tr> <tr> <td>Франция неделя - 250$ </td> <td>Версаль неделя - 300$ </td> </tr></table>
</body><span></html></span>
1. Для цикла For
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.
<em><u>Вариант с процедурой Delete</u></em>
var
s:string;
k:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
Delete(s,k,1);
Writeln('Результат: ',s)
end.
<em><u>Вариант с функцией Copy</u></em>
var
s:string;
k,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
Writeln('Результат: ',s)
end.
<em><u>Вариант с циклами</u></em>
var
s,s1:string;
k,i,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s1:='';
for i:=1 to k-1 do s1:=s1+s[i];
for i:=k+1 to n do s1:=s1+s[i];
Writeln('Результат: ',s1)
end.
<em><u>Тестовое решение (одинаково для всех вариантов):</u></em>
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан
<em><u>Блок-схемы всех вариантов находятся во вложениях</u></em>
