|
Решения задач на Паскале!Срочно нужно!
|
|
Добрый день, помогите со следующим
Сформировать двумерный массив D размером N x 6 (N – количество строк, равное предпоследней цифре номера студенческого билета +2 6 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл (см. п.3.4. и п.3.6.). В каждом столбце матрицы D найти максимальный элемент (оформить нахождение максимального элемента в виде функции). Среди найденных чисел найти минимальное и вывести на экран и в файл.
N - данном случая у меня 2
№ 321 | Автор: amfetammin |
2012-02-14, 10:14 | Изменено: amfetammin - Вт, 2012-02-14, 10:15
|
Репутация: [ + 0 ]
|
|
|
№ 321 | Автор: amfetammin |
2012-02-14, 10:14 | Изменено: amfetammin - Вт, 2012-02-14, 10:15
|
Репутация: [ + 0 ]
|
|
|
|
var
a:array[1..4,1..6]of integer;
i,j:integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 6 do
a[i,j]:=random(100);
for i:=1 to 4 do begin
for j:=1 to 6 do
write(a[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Доброе утро!!!
Помоготе пожалуйста!!
Требуется написать программу, которая ввод данных в одномерный целочисленный массив, размерностью 12, осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL. Программа должна находить и заменять минимальный элемент массива на единицу.
|
|
|
|
var
a:array[1..12]of integer;
i,q,p:integer;
begin
p:=low(p);
i:=1;
while i<>13 do begin
read(a[i]);i:=i+1;end;
for i:=1 to 12 do
if a[i]>p then begin p:=a[i];q:=i;end;
a[q]:=1;
i:=1;
repeat
write(a[i],' ');
i:=i+1;
until i=13;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Добрый вечер!
Требуется написать программу, которая выводит столбец и строку двухмерного массива 5х4, на пересечении которых расположен минимальный элемент.
PROGRAM Minimum;
VAR i, j : Integer;
M : ARRAY [1..5, 1..4] OF Real;
min : Real;
BEGIN
FOR i:=1 TO 5 DO
FOR j:=1 TO 4 DO
BEGIN
WRITE('M[',i,',',j,']=');
READLN(M[i,j]);
END;
min:=M[1,1];
FOR i:=1 TO 5 DO
FOR j:=1 TO 4 DO
IF M[i,j]<min THEN min:=M[i,j];
Минимальный элемент я нашел, а дальше разобраться не могу!!!
|
|
|
|
Кто капсом учил писать?))
Код:
var
a:array[1..100,1..100]of integer;
i,j,q,w,p:integer;
begin
p:=high(p);
for i:=1 to 5 do
for j:=1 to 4 do begin
read(a[i,j]);
if a[i,j]<p then begin p:=a[i,j];q:=i;w:=j;end;end;
for i:=1 to 5 do
write(a[i,w],' ');
writeln;
for i:=1 to 4 do
write(a[q,i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожааалуйста с задачей или хотя бы с первой частью
Задана матрица (двумерный массив) A размером N x М , состоящая из действительных элементов. Получить новую матрицу путем умножения всех элементов данной матрицы на ее наибольший элемент. Сформировать вектор из элементов главной диагонали и отсортировать его по возрастанию.
|
|
|
|
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,m,p:integer;
begin
read(n,m);
p:=low(p);
for i:=1 to n do
for j:=1 to m do begin
read(a[i,j]);
if a[i,j]>p then p:=a[i,j];end;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]*p;
write(a[i,j],' ');end;
writeln;end;
for i:=1 to n do
b[i]:=round(a[i,i]/p);
for i:=1 to n do
for j:=1 to n-1 do
if b[j]>b[j+1] then begin p:=b[j];b[j]:=b[j+1];b[j+1]:=p;end;
for i:=1 to n do
write(b[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Введите множество, состоящее из 20 целых чисел от 1 до 100.
Определите, сколько среди них простых чисел.
|
|
|
|
|
Спасибо большущее за решение!! Это конечно совсем уже наглость, но не подсобите ли с блок схемой? буду признательна, а если нет, то всё равно спасибо за задачку
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Вот задача: Создать модуль, в который включить несколько процедур и функций для работы с массивами, например, процедура поиска наименьших элементов нечетных столбцов, процедура поиска наи-больших элементов четных строк, функция нахождения суммы элементов побочной диагонали. В основной программе заполнить исходный массив, и затем вызвать имеющиеся процедуры и функ-ции. Обосновать выбор способов передачи параметров.
Помогите, пожалуйста, решить, очень прошу...Добавлено (28.02.12, 20:43)
---------------------------------------------
Quote (Bozman) Вот незадача...
Дзисай
|
|
|
|
Quote (M@RECS) Введите множество, состоящее из 20 целых чисел от 1 до 100.
Определите, сколько среди них простых чисел.
Порыскай по форуму, недавно код на аналогичную задачу писал кому-то
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
в каком форум в этом не нашел
|
|
|
|
Здравствуйте!
Нужна очень срочно помощь!!!!!
Вот код программы:
Program proverka;
Var a, b, S, PR: longint;
Begin
Writeln (‘введите два целых числа, их сумму и произведение’);
Readln (a, b, S, PR);
If a+b=S then writeln (‘сумма верна’) else writeln (‘сумма неверна’);
If a* b=S then writeln (‘произведение верно’) else writeln (‘произведение неверно);
End.
И имеется блок схема к этой же програмке, которая состоит из трех блоков ветвления.
Препод говорит что и блок схема и код программы правильны, но блок схема не соответствует коду! Не могу разобраться как заменить блок схему! Может для оператора условного перехода какое то специальное оббозначение в схеме??
|
|
|
|
Quote (romanpolukarov) If a* b=S then writeln (‘произведение верно’) else writeln (‘произведение неверно);
Вместо S пиши PR
Потому-что ты сравниваешь сумму с произведением
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите пожалуста решить задачу по массивам
Пригодность детали оценивается по размеру B который должен соответствовать интервалу (A-g;A+g).определить имеются ли в партии из N деталей бракованные.Если да то подсчитать их количества,в противном случае выдать отрицательный ответ.
пожалуста очень срочно надо.....
|
|
|
|
помогите пожалуйста написать маленькую программку на паскале
определить величину стипендии для отличников и студентов, учащихся без троек, если известна величина стипендиального фонда, число отличн и учащихся на на 4 и 5.надбавка к базовой стипендии у отличников в 2 раза больше чем у учащихся на 4 и 5.величина базовой стипендии известна.
|
|
|
|
Добрый денью Помогите решить 3 задачки!
1-Найти скалаярное произведение матрици размером Аnxn.
2-Для заданых матриц Amxm Bmxm вычислить выражение (3А+2В)(2А-В)-3АВ. (процедуры)
3-Найти найбольший 'лемент в каждой строке, и найменший 'лемент в каждом столбце матрици Аnxn.
Заранее благодарен!
Air.
|
|
|
|
|
помогите пожалик решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
|
|
|
|
