Пожалуйста помогите решить несколько задач на Паск скачать бесплатно

nacha-Russia

8.06.2008 - 16:34

Пожалуйста помогите решить несколько задач на Паскале! Не успеваю их общее кол-во 35!

16.В массив A[N] занесены натуральные числа. Составить программу для определения суммы четных и произведения нечетных элементов

17.Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления

18.В двумерном массиве есть нулевые элементы. Составить программу для создания одномерного массива из сумм индексов этих элементов.

22.Составить программу, которая формирует произвольный квадратный массив (N*N) с использованием функций случайных чисел и определяет сумму элементов главной диагонали
25. Помогите пожалуйста составить программу.
В библиотеке имеются книги, газеты, журналы. Организовать массив из 5 записей, хранящих сведения для каждого вида печатных изданий:
-название;
- год выпуска (для книги), дату выпуска (для газет и журналов);
- автора (для книги), редактора (для газеты), состав редколлегии (для журнала);
Вывести информацию об изданиях, вышедших в заданном году.

26.Помогите, пожалуйста, составить программу.
Описать массив из 5 записей, моделирующий сводную ведомость (фамилия, имя, отчество студента, предмет, номер группы, номер зачетной книжки, три оценки по итогам текущей сессии). Определить отличников, хорошистов, троечников и двоечников.
№ 139551

27.Помогите, пожалуйста, составить программу.
Ввести фамилию, имя и отчество как одну велечину строкового типа.
Определить длину строки и количество букв "а" в ней. Вывести длины фамилии и имени
30.Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.

_Dimas_

11.06.2008 - 4:45

Code

program N16;
const
n = 20;
var
a: array [1..n] of Integer;
i, summa, proiz: Integer;
begin
{Заполнение массива случайными числами}
Randomize;
for i := 1 to n do
a[i] := Random(100);

{Вычисление суммы четных и произведения нечетных элементов массива}
summa := 0;
proiz := 1;
for i := 1 to n do
if i mod 2 = 0 then
summa := summa + a[i]
else
proiz := proiz * a[i];
Writeln('Сумма четных элементов массива = ', summa);
Writeln('Произведение нечетных элементов массива = ', proiz);
end.

Code

program N17;
var
i, j: Integer;
begin
Write(' ');
for i := 2 to 9 do
Write(i:3);
WriteLn;

for i := 2 to 9 do begin
Write(i:2);
for j := 2 to 9 do
Write(i*j:3);
WriteLn;
end;
end.

Code

program N18;
const
n = 10;
var
arr1: array [1..n, 1..n] of Integer;
arr2: array [1..n*n] of Integer;
i, j, k: Integer;
begin
Randomize;
for i := 1 to n do
for j := 1 to n do
arr1[i, j] := Random(5) - 1;

k := 1;
for i := 1 to n do
for j := 1 to n do
if arr1[i, j] = 0 then begin
arr2[k] := i + j;
Inc(k);
end;
for k := 1 to n*n do
if arr2[k] > 0 then
WriteLn(k, ':', arr2[k]:3);
end.

Code

program N22;
const
N_Max = 100;
var
arr: array [1..n_Max, 1..N_Max] of Integer;
i, j, n, summa: Integer;
begin
Randomize;
n := Random(N_Max);

for i := 1 to n do
for j := 1 to n do
arr[i, j] := Random(100);

summa := 0;
for i := 1 to n do
summa := summa + arr[i, i];

WriteLn('Сумма элементов главной диагонали массива: ', summa);
end.

ThunderBolt

16.09.2008 - 20:08

как не стыдно??? "не хватает времени" 5-ти минутки
код давать не буду но кое чего подправлю.. в задачах 25 и 26 используется не массив а запись "record", там вообще-то данные разнотипные, эти задачи вообще почти индентичны.
27. строка есть массив элементов типа Char, отсюда все выводы.
30. множество - неупорядоченный массив, чот я с ними не помню ничего кроме In =))) посему предлагаю элементы из множества в котором их меньше проверить на нахождение во-втором множестве.

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке: Пожалуйста помогите решить несколько задач на Паск