day & night

Пожалуйста помогите решить несколько задач на Паск, Программирование
Дата обновления: , перейти к новому сообщению
#1
nacha-Russia



Unregistered
Пожалуйста помогите решить несколько задач на Паскале! Не успеваю их общее кол-во 35! ph34r.gif
16.В массив A[N] занесены натуральные числа. Составить программу для определения суммы четных и произведения нечетных элементов

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

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

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


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

27.Помогите, пожалуйста, составить программу.
Ввести фамилию, имя и отчество как одну велечину строкового типа.
Определить длину строки и количество букв "а" в ней. Вывести длины фамилии и имени
30.Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Go topGo end
 
Ответов(1 - 2)
11.06.2008 - 4:45
#2
_Dimas_



Опытный юзверь
**

Группа: Пользователи
Сообщений: 71
Регистрация: 29.11.2006
Из: г. Пермь
Пользователь №: 273.060


Респектов: 10
-----X----


Предупреждений:

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.
User is offline
Go topGo end
16.09.2008 - 20:08
#3
ThunderBolt



Новичок


Группа: Пользователи
Сообщений: 8
Регистрация: 14.09.2008
Пользователь №: 1.077.323


Респектов: 0
----------


Предупреждений:

как не стыдно??? "не хватает времени" 5-ти минутки
код давать не буду но кое чего подправлю.. в задачах 25 и 26 используется не массив а запись "record", там вообще-то данные разнотипные, эти задачи вообще почти индентичны.
27. строка есть массив элементов типа Char, отсюда все выводы.
30. множество - неупорядоченный массив, чот я с ними не помню ничего кроме In =))) посему предлагаю элементы из множества в котором их меньше проверить на нахождение во-втором множестве.
User is offline
Go topGo end
Вид темы: [ Линейный ] · Стандартный · Режимы сортировки: [ По возрастанию (0-9) ] · По убыванию (9-0)

 
Topic Options
Сейчас: 11.05.2024 - 20:30
 Мобильная версия | Lite версия
▲
SoftoRooM © 2004-2024