|
Решения задач на Паскале!Срочно нужно!
|
|
|
Здравствуйте! Помогите пожалуйста!Известны возраст каждого из n женихов и каждой из m невест. Сформулировать из них возможно большее число пар так чтобы разница в возрасте между молодоженнами в каждой паре была не больше заданного k.
|
|
|
|
Цитата:
Помогите исправить ошибки и написать блок-схему.
1. Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a);
If (a=0 then inc©
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.
2. Задание: дана матрица целых чисел размером 4х4. Поменять местами первый и последний элемент массива х.
Листинг программы:
Program matriza;
Const A: array [1..4, 1..4] of integer=((1,1,1,1), (2,2,2,2), (3,3,3,3), (4,4,4,4));
Var n, m, I, j: integer;
Begin writeln (`исходящая матрица равна`);
For i:=1 to 4 do begin j:=1 to 4 do write(A[I;j]); Writeln; end;
n:=0; m:=0;
For i=1 to 4 do for j:=1 do 4 begin
If A[I;j]=1 then n:=Aj;
If A[I;j]=4 then n:=Ai;
End;
Writeln (`первый элемент массива:`,n);
Writeln (`последний элемент массива:`,m);
End.
|
|
|
|
помогите решить программу пожалуйста! дан файл f компонентами которого являются целые числа. переписать компоненты в файл, в порядке возростания.
Алекс.
|
|
|
|
Всем добрый вечер! Помогите ,пожалуйста,в написании следующей программы на Паскале АВС.NET :
Ввести натуральное число N, а так же N вещественных чисел. Определить максимальное из всех введенных вещественных чисел и его номер. Если
максимальных значений несколько – то их количество и номер последнего из
них.
Ввод числа N, вывод результатов выполнить в основной программе, а для выполнения вычислений максимума создать процедуру.
Заранее спасибо . P.S относительно недавно начали изучать этот язык и вот прилетело это задание .
№ 704 | Автор: Maksses |
2013-05-27, 22:32 | Изменено: Maksses - Пн, 2013-05-27, 22:54
|
Репутация: [ + 0 ]
|
|
|
№ 704 | Автор: Maksses |
2013-05-27, 22:32 | Изменено: Maksses - Пн, 2013-05-27, 22:54
|
Репутация: [ + 0 ]
|
|
|
|
Даны действительные числа а1901,а1902,...,а1950- количество осадков (в миллиметрах), выпавших в Москве в течении первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года.
Пожалуйста, помогите решить задачу.
№ 705 | Автор: Beijulecitm |
2013-05-28, 07:20 | Изменено: Beijulecitm - Вт, 2013-05-28, 07:21
|
Репутация: [ + 0 ]
|
|
|
|
|
В текстовом файле dat.pas задана действительная квадратная матрица 10-го порядка. Путем линейных преобразований строк привести исходную матрицу к треугольному виду. Отдельные преобразования строк оформить в виде процедуры.(!!) Результат вывести на экран
|
|
|
|
Помогите пожалуйста, не успеваю в сроки!!!
Определить массив Y=X^2-X, где X=2.0,2.2,2.4,...12. Выделить массив отрицательных значений Yp и вывести этот массив на печать с сортировкой по возрастанию в 5 колонок.Вывести максимальный положительный элемент.Добавлено (07.06.13, 06:57)
---------------------------------------------
Здравствуйте, требуется помощь в решении задачи на системы счисления.
Условие задачи: Написать программу, которая выполняет алгебраическое сложение целых положительных и отрицательных двоичных чисел в обратном коде.
|
|
|
|
|
Создать не текстовый файл news.Dat, содержащий информацию о выпускаемых газетах (название, тираж, дата выпуска (число, месяц)). Переписать в текстовый файл информацию о газетах, упорядоченную в алфавитном порядке, тираж которых превышает 10000. Вывести на экран название газеты, имеющей наибольший тираж. Ввести текущую дату, вывести на экран название самой свежей газеты. Добавлено (13.06.13, 17:58)
---------------------------------------------
помогите плз очень срочно надо
|
|
|
|
|
Напишите программу на паскаль которая для введенного числа a выводит на экран столбец чисел, полученный ПУТЕМ сложения числа A и b (при этом b Меняет значения от 2 до 12) Помогите пожалуйста!!! Добавлено (08.09.13, 17:57)
---------------------------------------------
Напишите программу на паскаль которая для введенного числа a выводит на экран столбец чисел, полученный ПУТЕМ сложения числа A и b (при этом b Меняет значения от 2 до 12) ПОМОГИТЕ!!!!
|
|
|
|
я ведь писал уже, вроде-бы..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
2. Реализовать на Паскале алгоритм: Дан массив F (15). Умножить все элементы на 0.5, начиная с первогопо порядку отрицательного числа.3. Реализовать на Паскале: Дана матрица В (6, 8). Выяснить, что больше:произведение элементов четных столбцов или сумма элементов нечетных строк
|
|
|
|
|
Что конкретно у вас вызывает затруднение в решении этих задач? Или вы просто хотите получить готовое решение?
|
|
|
|
|
Если возможно это сдать надо в понедельник последний день Добавлено (12.09.13, 19:00)
---------------------------------------------
Что я непойму как это делать!
|
|
|
|
что конкретно ты не понимаешь?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Ввести число. Получить другое число путем замены нулей на 9
var x,i : integer;
begin
readln(x);
while x>0 do
воот
а дальше я запуталась..
|
|
|
|
пример ввода вывода в студию
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Срочно помогите решить!!
Является ли число а делителем чисел b и с?
делятся ли все числа на 5 и 7?
Найти сумму и кол-во тех из них,которые лежат в диапозоне от 7 до 20
|
|
|
|
Ввести три целых числа
x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
|
|
|
|
Помогите пожалуйста :Задана символьная матрица размерности N x M. Необходимо на-
печатать все символы, находящиеся в столбцах, элементы которых симметричны
|
|
|
|
Цитата Volgo (  ) Ввести три целых числа x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
x,y,z:integer;
begin
read(x,y,z);
if (x > 0) then begin x:=y+z;writeln(x);end else
if (y > 0) then begin y:=x+z;writeln(y);end else
if (z > 0) then begin z:=x+y;writeln(z);end else
writeln('Ни одно число не является чётным');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
