Задание 6. На рис. 1, 2, 3, 4 изображены виды топологии компьютерных сетей. 1. Определите, к каким топологиям они относятся. 2. Сравните преимущества и недостатки этих топологий.
1. есть число n. пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
n=10;
var
a,b:array[1..n] of integer;
i,si,smax:integer;
begin
Writeln('Введите парами длины катетов ',n,' треугольников');
smax:=0;
for i:=1 to n do begin
Read(a[i],b[i]);
si:=a[i]*b[i]; { пополам разделим потом максимальное }
if si>smax then smax:=si
end;
Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
for i:=1 to n do
if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
Writeln
end.
Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20