Const nn=100; var n,i,k,s:integer; a:array[1..nn] of integer; begin Write('Количество элементов в массиве: '); Read(n); Randomize; Writeln('Сформированный массив'); k:=0; s:=0; for i:=1 to n do begin a[i]:=Random(100); Write(a[i],' '); if (a[i] in [51..59]) then begin s:=s+a[i]; Inc(k) end end; Writeln; Writeln('На интервале [51..59] найдено элементов - ',k); Writeln('Их сумма равна ',s) end.
Пример выполнения программы Количество элементов в массиве: 20 Сформированный массив 26 65 64 80 46 0 54 38 63 14 63 81 40 42 17 16 23 88 61 54 На интервале [51..59] найдено элементов - 2 Их сумма равна 108
Замечание Если конструкция a[i] in [51..59] кажется незнакомой, её можно заменить на более длинную и менее эффективную (a[i]>50) and (a[i]<60)
Var M, Day : integer; Sm, S : real; begin writeln('Вычисление стоимости телефонного разговора'); writeln('Введите исходные данные'); write('Стоимость минуты разговора, руб. '); readln(Sm); write('Длительность разговора (целое количество минут) '); readln(M); write('День недели (1-понедельник, ... 7-воскресенье) '); readln(Day); S:=Sm*M; if (Day=6)or(Day=7) then writeln('Стоимость разговора с учетом скидки = ',S*0.8) else writeln('Стоимость разговора = ',S); end.
Пример: Вычисление стоимости телефонного разговора Введите исходные данные Стоимость минуты разговора, руб. 3.2 Длительность разговора (целое количество минут) 6 День недели (1-понедельник, ... 7-воскресенье) 7 Стоимость разговора с учетом скидки = 15.36
1) Давай с тобой определим, что такое граф, или семантическая сеть. Граф - это когда некоторое количество точек соединено линиями, и линии не всегда есть между каждой парой точек. Графы применяются для изучения какого-либо события, для анализа данных. К примеру, есть станции А, Б, В и Г. Тебе надо с А попасть на станцию Г кратчайшим путём. Чтобы узнать этот самый путь, нужна карта. А схематичная карта такого пути - это и есть граф! (Кстати, карту метро тоже можно назвать очень большим графом). 2) Наметим пункты нашего графа. Какие мы знаем? Например, Облака, Дождь, Снег, Поверхность Земли, Земля, Животные, Растения, Пар. 3) Располагаем их и соединяем стрелочками (движение возможно только в одну сторону) или просто линиями.
nn=100;
var
n,i,k,s:integer;
a:array[1..nn] of integer;
begin
Write('Количество элементов в массиве: '); Read(n);
Randomize;
Writeln('Сформированный массив');
k:=0; s:=0;
for i:=1 to n do begin
a[i]:=Random(100);
Write(a[i],' ');
if (a[i] in [51..59]) then begin s:=s+a[i]; Inc(k) end
end;
Writeln;
Writeln('На интервале [51..59] найдено элементов - ',k);
Writeln('Их сумма равна ',s)
end.
Пример выполнения программы
Количество элементов в массиве: 20
Сформированный массив
26 65 64 80 46 0 54 38 63 14 63 81 40 42 17 16 23 88 61 54
На интервале [51..59] найдено элементов - 2
Их сумма равна 108
Замечание
Если конструкция a[i] in [51..59] кажется незнакомой, её можно заменить на более длинную и менее эффективную (a[i]>50) and (a[i]<60)