Паскаль. с клавиатуры введены 6 целых чисел. составьте программу, которая найдет из них наибольшее из них. использовать процедуру поиска большего из двух (бид).
Для того чтобы определить значение ячейки С4, необходимо оценить формулу A1+B1+A2+B2 по шагам. Для начала обратимся к значениям ячеек A1, B1, A2 и B2.
- В ячейке A1 содержится число 3.
- В ячейке B1 содержится формула =5*2. Чтобы вычислить значение этой формулы, умножим 5 на 2, получив результат 10.
- В ячейке A2 содержится формула =4+7. Вычисляя эту формулу, сложим 4 и 7, получив результат 11.
- В ячейке B2 содержится число 8.
Теперь, имея значения ячеек A1, B1, A2 и B2, мы можем подставить их в формулу A1+B1+A2+B2 и вычислить значение ячейки С4.
Следующий шаг - сложение.
- Сложим значения A1 и B1: 3 + 10 = 13.
- Затем сложим значения A2 и B2: 11 + 8 = 19.
- Наконец, сложим результаты предыдущих сложений: 13 + 19 = 32.
1. Күнделікті өмірде кездесетін сызықтық алгоритмдер (мысалдар):
- Ақша теңгесі алмау (Payng for groceries):
- Сипаттау: Жалақы, мөлшерлеме жанартауымен сатып алушы ақшасын алып, қолданушы ақшасынан __ бакыт ажату кезінде апараттык салыстыру жасау.
- Алгоритм:
1. Қолданушы ақшасынан бакытын енгізеді.
2. Мына бакыты пайдаланып, сатып алушы ақшасын алып шығады.
3. Ол өзінің аппараттық салыстыруын байланыстырып, алынған ақша санынен өзінің сол апараттыкты апаратпен салыстырады.
4. Барлық табыс бойынша сатып алушы ақшасын алушыға беру.
5. Программа жалпы қол қоймаса, оны жабу.
- Мол болуп ширеулі математикалық қауымдастьық есеп (Calculating the volume of a sphere):
- Сипаттау: Біздің метрлік қасыммен өсіруді пайдаланумен, шардың үнділіктік қауымдастьығын есептеу.
- Алгоритм:
1. Шардың радиусын енгізіңіз.
2. Радиусты квадратқа алыңыз.
3. Мына квадратты қолданып, оны жолымен Пи (3.1415) санымен қосыңыз.
4. Есептеу нәтижесін жазыңыз.
5. Программа жалпы қол қоймаса, оны жабу.
2. Екі санның қосындысын есептеу программасындағы қателіктер (дұрыс нұсқа):
a = int(input('a-ны енгіз')) # input функциясын пайдалана отырып, а өрісінің мәнін сан ретінде енгізіңіз.
b = int(input('b-ны енгіз')) # input функциясын пайдалана отырып, b өрісінің мәнін сан ретінде енгізіңіз.
input('қосынды, а-о') # қосынды функциясын пайдалана отырып, 'қосынды, а-о' жолды көрсетіп, пайдаланушыдан келесі дұрыстықтарды тексеруін күтеді.
"Дәптерлеріңе программаның дұрыс нұсқасын жазыңдар жожно по казахски."
Оларды пайдаланушы мәтінді қазақ тілінде жазу керек.
//PascalABC.NET 3.4.2
var x, max: integer;
procedure my_max(x1, x2: ^integer);
begin
if (x2^ > x1^) then x1^ := x2^;
end;
begin
loop 6 do
begin
x := readinteger();
my_max(@max, @x);
end;
write(max);
end.