Информатика | 10 - 11 классы
Паскаль помогите пжл!
Дан одномерный массив, состоящий из вещественных элементов.
Найти произведение элементов массива, расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов.
Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами ну или исправьте мое пжл program fgf ;
var mas : array[1.
100] of real ;
max, min : real ;
i, n, c, b : shortint ;
p : real ;
f1, g : text ;
begin ;
assign (f1, 'input.
Txt') ;
reset (f1) ;
readln (f1, n) ; for i : = 1 to N do read (mas[i]) ;
max : = mas[i] ;
for i : = 2 to N do begin
if mas[i]> ; max then begin
max : = mas[i] ;
c : = i ;
end ;
end ;
min : = mas[1] ;
for i : = 2 to N do begin
if mas[i]< ; min then begin
max : = mas[i] ;
b : = i ;
end ;
end ;
close(f1) ;
assign (g, 'output.
Txt') ;
rewrite (g) ;
p : = 1 ;
if b< ; c then I : = b + 1 and c - 1 else for I : = c + 1 to b - 1 do p : = p * mas[i] ; if (n< ; 3) or (b + 1 = c) or (c + 1 = b) then writeln(g, '0.
00') else write(p : 3 : 3) ; close (g) ;
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 zaza ;
var
i, j, n, m, max, min : integer ;
a : array[1.
10, 1.
10] of integer ;
begin
writeln ('vvedite chislo n') ;
writeln ('vvedite chislo m') ;
for i : = 1 to n do
for j : = 1 to m do
begin
writeln ('vvedite elementu massiva', i, j) ;
end ;
for i : = 1 to n do
for j : = 1 to m do
begin
if a[i, j] > ; max then
max : = a[i, j] ;
if a[i, j] < ; min then
min : = a[i, j] ;
end ;
writeln('max', 'min')
end.
ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?
ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.
40] of integer" var mas : array[1.
40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.
Нужна помощь в отредактировании программы Паскаль?
Нужна помощь в отредактировании программы Паскаль.
Нужно, чтобы выводилось максимальное среди двузначных элементов массива.
Максимальное программа выводит, но где и как прописать, что элементы массива только двузначные?
Program maxdvuz ;
var i, n, i1 : integer ;
a : array[1.
1000] of integer ;
amax : real ;
begin
assign (input, 'input.
Txt') ;
assign (output, 'output.
Txt') ;
reset (input) ;
rewrite (output) ;
readln(n) ;
for i : = 1 to n do read (a[i]) ;
amax : = a[1] ;
for i : = 1 to n do
begin
if a[i]> ; amax then
begin
amax : = a[i] ;
i1 : = i ;
end ;
end ;
writeln(amax : 0 : 0) ;
close (input) ;
close (output) ;
end.
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.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, ma?
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, max, min : integer ; a : array[1.
N, 1.
M] of integer ; / / Ввод массива begin randomize ; / / Подключение датчика случайных чисел for i : = 1 to n do / / Ввод чисел для переменных массива for j : = 1 to m do a[i, j] : = random(100) ; / / Ввод случайных чисел max : = a[1, 1] ; min : = a[1, 1] ; for i : = 1 to n do begin for j : = 1 to m do begin if a[i, j] > ; max then max : = a[i, j] ; / / Вывод max элемента НЕ ПРАВИЛЬНО if a[i, j] < ; min then min : = a[i, j] ; / / Вывод min элемента write(a[i, j] : 5) ; end ; writeln ; end ; writeln() ; writeln('max = ', max, ' min = ', min) ; / / Вывод max и min значений end.
Нужно поменять местами макс?
Нужно поменять местами макс.
И мин.
Значения.
Что не так?
PROGRAM MATRICA ; USES CRT ; CONST N = 3 ; M = 4 ; A = - 20 ; B = 20 ; VAR I, J, MIN, MAX, T : INTEGER ; Y : ARRAY [1.
N, 1.
M] OF INTEGER ; BEGIN CLRSCR ; RANDOMIZE ; WRITELN('MATRICA Y') ; MIN : = 0 ; MAX : = 0 ; T : = 0 ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN Y[I, J] : = TRUNC((B - A) * RANDOM + A) ; WRITE(Y[I, J] : 6) ; IF Y[I, J]MAX THEN MAX : = Y[I, J] ; END ; WRITELN ; END ; WRITELN('Минимальное значение = ', MIN) ; WRITELN('Максимальное значение = ', MAX) ; T : = MIN ; MIN : = MAX ; MAX : = T ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN WRITE(Y[I, J] : 6) ; END ; WRITELN ; END ; READKEY ; END.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
Выдает ошибку Операция > ; не может быть применена к типам 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.
Вы зашли на страницу вопроса Паскаль помогите пжл?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 10 - 11 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
/ / operations_array.
Cpp : определяет точку входа для консольного приложения.
#include "stdafx.
H"
#include < ; iostream> ;
#include < ; ctime> ;
using namespace std ;
int main(int argc, char * argv[])
{ srand(time(NULL)) ; setlocale(LC_ALL, "rus") ; int length_array ; cout < ; < ; "Укажите количество элементов массива : " ; cin > ; > ; length_array ; float * arrayPtr = new float [length_array] ; / / одномерный динамический массив / / заполняем одномерный массив случайными числами for (int counter = 0 ; counter < ; length_array ; counter + + ) { arrayPtr[counter] = - 5.
00 + ((rand() % 101) / 10.
0) ; / / генерируем случайные числа [ - 5, 5] cout < ; < ; arrayPtr[counter] < ; < ; " " ; / / вывод сгенерированного числа } cout < ; < ; endl ; float min = arrayPtr[0] ; / / инициализируем первым элементом массива int number_min = 0 ; / / номер минимального элемента for (int counter = 0 ; counter < ; length_array ; counter + + ) { if (min > ; arrayPtr[counter]) { min = arrayPtr[counter] ; / / минимальный элемент number_min = counter ; / / номер минимального элемента } } cout < ; < ; "номер минимального элемента = " < ; < ; (number_min + 1) < ; < ; endl ; / / номер минимального элемента double product = 1 ; for (int counter = 0 ; counter < ; length_array ; counter + + ) { if (arrayPtr[counter] < ; 0) / / находим первое отрицательное число { counter + + ; / / переключаемся на следующий элемент while (arrayPtr[counter] > ; 0) / / пока не нашли второе отрицательное число { product * = arrayPtr[counter] ; / / накапливаем произведение элементов counter + + ; } break ; / / выход из цикла for } } cout < ; < ; "произведение = " < ; < ; product < ; < ; endl ; float * relocation_arrayPtr = new float [length_array] ; / / одномерный динамический массив для перестановок int index = 0 ; / / индекс массива перестановок / / заполняем массив элементами, модуль которых не превышает 1 for (int counter = 0 ; counter < ; length_array ; counter + + ) { if (abs(arrayPtr[counter]) < ; = 1) { relocation_arrayPtr[index] = arrayPtr[counter] ; index + + ; } } / / заполняем массив элементами, модуль которых больше 1 for (int counter = 0 ; counter < ; length_array ; counter + + ) { if (abs(arrayPtr[counter]) > ; 1) { relocation_arrayPtr[index] = arrayPtr[counter] ; index + + ; } } / / напечатать преобразованный массив cout < ; < ; " \ nПреобразованный массив : \ n" ; for (int counter = 0 ; counter < ; length_array ; counter + + ) { cout < ; < ; relocation_arrayPtr[counter] < ; < ; " " ; } cout < ; < ; endl ; / / высвобождение памяти отводимой под одномерный динамический массив : delete [] arrayPtr ; delete [] relocation_arrayPtr ; system("pause") ; return 0 ;