Информатика | 5 - 9 классы
Помогите плиииз))) Надо написать блок - схему на эту программу.
Program a2 ; var a, b, c, min : real ; begin Writeln (‘Введите три числа’) ; readln (а, b, с) ; min : = а ; If b< ; min then min : = b ; if c< ; min then min : = c ; writeln (‘min = ' , min) ; end.
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i
var a : array [1.
5] of integer ;
i, min, max, x : integer ;
begin
for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;
max : = a[1] ;
min : = a[1] ;
for i : = i to 5 do begin
if a[i]> ; max then max : = a[i] ;
if a[i]< ; min then min : = a[i] ;
end ;
writeln('max = ', max) ;
writeln('min = ', min) ;
end.
Это правильно ?
Это правильно ?
Это информатика 9 класс.
Задача.
Среди 4 чисел найти максимум и минимум :
program zadacha ;
var
a, b, c, d, max, min : real ;
begin
writeln('vvedite kofficient a, b, c, d') ;
If a> ; b then max : = a else min : = b ;
If c> ; d then max : = c else min : = d ;
If a> ; c then max : = a else min : = c ;
end.
Program naim4 ;var a, b, c, d, min : real ; begin ;writeln('введите 4 числа') ;readln ;min : = a ;if b < ; min then min : = b ;if c < ; min then min : = c ;if d < ; min then min : = d ;writeln('?
Program naim4 ;
var a, b, c, d, min : real ; begin ;
writeln('введите 4 числа') ;
readln ;
min : = a ;
if b < ; min then min : = b ;
if c < ; min then min : = c ;
if d < ; min then min : = d ;
writeln('минимальное ', min) ;
readln ;
end.
Нужно найти минимальное число из 4 данных.
Что не так?
Program z6_2 ; uses crt ; const n = 6 ; var a : array[1?
Program z6_2 ; uses crt ; const n = 6 ; var a : array[1.
6]of real ; i : integer ; begin clrscr ; Writeln('введите элемент массива') ; for i : = 1 to 6 do readln (a[i]) ; if min min : = a[i] ; writeln ('min = ', min : 7 : 3) ; Repeat until keypressed ; end.
Подскажите где ошибка В Pascal Текст : Составить программу, которая выводит на экран минимальный элемент массива Х и его индекс Х = {1, 3, 5, 2, - 12, 0}.
Program pr ; var mas : array[1?
Program pr ; var mas : array[1.
10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.
Что не верно?
Вот задача : Дан одномерный массив А длиной N.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Var sumsec : integer ; var hour, min, sec : integer ; l : integer ; begin writeln ('Введите суммарное кол - во секунд') ; readln (sumsec) ; l : = sumsec div 60 ; sec : = sumsec mod 60 ; hour : = l div?
Var sumsec : integer ; var hour, min, sec : integer ; l : integer ; begin writeln ('Введите суммарное кол - во секунд') ; readln (sumsec) ; l : = sumsec div 60 ; sec : = sumsec mod 60 ; hour : = l div 60 ; min : = l mod 60 ; writeln (sumsec, ' секунд - это') ; writeln ( hour , 'час(а / ов) ', min , ' минут ' , sec , ' секунд ') ; end.
Сделать данную программу с помощью процедуры.
Помогите пожалуйста?
Помогите пожалуйста!
3. Найдите ошибки в программе и запишите исправленную программу в тетрадь : Program 3 funkciy ; Var x : y : integer Writeln (‘введите значение х’) ; Readln(х) ; Begin If x> ; 0 then y : = x ; else y : = x * x ; writeln(значение функции , y) ; end.
4. Дана программа на языке Паскаль : Program a2 ; Var a, b, c, min : real ; Begin Writeln (‘введите 3 числа’) ; Readln(a, b, c) ; min : = a ; if b.
Найти max{min{ a, b }, min{c , d }} на языке c?
Найти max{min{ a, b }, min{c , d }} на языке c.
Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?
Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b> ; a then begin max : = c ; med : = b ; min : = a ; End ; if b> ; a> ; c then begin max : = b ; med : = a ; min : = c ; End ; if a> ; c> ; b then begin max : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.
Задание :Ввести массив в данную программуvarn, i, a, min : integer ;beginreadln(n) ;min : = 30001 ;for i : = 1 to n dobeginreadln(a) ;if (a mod 10 = 4) and (a < min) thenmin : = a ;end ;writeln(min)en?
Задание :
Ввести массив в данную программу
var
n, i, a, min : integer ;
begin
readln(n) ;
min : = 30001 ;
for i : = 1 to n do
begin
readln(a) ;
if (a mod 10 = 4) and (a < min) then
min : = a ;
end ;
writeln(min)
end.
Вы зашли на страницу вопроса Помогите плиииз))) Надо написать блок - схему на эту программу?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 5 - 9 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
Во вложенной блок - схеме пропущены текстовые фрагменты ввода вывода "Введите три числа" и "min = " из - за особенностей использованной программы рисования блок - схем.