Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2015, 19:25   #1
Alex26MD
 
Регистрация: 14.12.2015
Сообщений: 3
По умолчанию Создать Проблеммы Паскаль

Всем привет мне нужно создать пару программ в Паскле,
Вот темы и задачи которые выдали мне
1.Тема:Линейные таблицы; Разработать программ, который вычесляет в Линейной таблицы 30 целых цифр. Задача: Который вычесляет количество элементов равное максимальному элементу.
2.Тема: Таблица Размеров; Разработать программ который вычесляет в таблице размеров 5x5 целых чисел. Задача: Вычисляет отрицательные элементы, расположенные ниже побочной диагоналы.
Кто поможет заранее Спасибо!!!
Alex26MD вне форума Ответить с цитированием
Старый 14.12.2015, 19:44   #2
TaLadno
Форумчанин
 
Регистрация: 03.06.2015
Сообщений: 393
По умолчанию

А слабо самому написать?
Вы там держитесь.
TaLadno вне форума Ответить с цитированием
Старый 14.12.2015, 20:22   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А проблемы паскалю зачем создавать? Самый простой способ - разделить на 0. Приличная проблема будет Можно еще корень квадратный из -2 посчитать. Та еще проблема будет
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 14.12.2015, 20:40   #4
Alex26MD
 
Регистрация: 14.12.2015
Сообщений: 3
По умолчанию

Цитата:
Сообщение от TaLadno Посмотреть сообщение
А слабо самому написать?
еслы бы я знал как делать написал бы сюда?

Цитата:
Сообщение от Аватар Посмотреть сообщение
А проблемы паскалю зачем создавать? Самый простой способ - разделить на 0. Приличная проблема будет Можно еще корень квадратный из -2 посчитать. Та еще проблема будет
Лабораторные работы, нужно через паскаль сделать программ и результат.

Последний раз редактировалось Stilet; 14.12.2015 в 22:24.
Alex26MD вне форума Ответить с цитированием
Старый 14.12.2015, 22:27   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Линейной таблицы
Это как понимать? Массив?
Код:
{Разработать программ, который вычесляет в Линейной таблицы 30 целых цифр. 
Задача: Который вычесляет количество элементов равное максимальному элементу.}
var a:array[1..30] of double; c,i:integer;max:double;
begin
 for i:=1 to 30 do begin readln(a[i]); if (i=1) or (a[i]>max) then max:=a[i]; end;
 for i:=1 to 30 do begin if (a[i]=max) then inc(c); end;
 writeln('количество элементов равное максимальному элементу=',c); readln; 
end.
Так? Да?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.12.2015, 16:27   #6
Alex26MD
 
Регистрация: 14.12.2015
Сообщений: 3
По умолчанию

Код:
Program P1;
 var a:array[1..30] of double;
 c,i:integer;
 max:дouble;
Begin
 for i:=1 to 30 do
  begin
   readln(a[i]);
   if (i=1) of (a[i]>max) then max:=a[i]
  end;
 for i:=1 to 30 do
  begin
   if (a[i]=max then inc(c);
 end;
 writeln('количество елементов равное максимальному елементу=' ,c);
 readln;
End.
Выдаёт ошибку 8087

Код (2)
Код:
Program P2;
 type t2=array[1..5,1..5] of integer;
 var x:t2;i,j,s:integer;
Begin
 writeln('Данные из Таблицы  x:');
 for i:=1 to 5 do
 for j:=1 to 5 do read(x[i,j]);
 s:=0;
 for i:=1 to 5 do
 for j:=1 to 5 do
 if(x[i,j] mod 10=1) and (x[i,j] mod 3=0) then s:=s+x[i,j];
 writeln('Сумма ',s); readln;
End.

Код (1)

Program P1;
 type t1=array [1..10] of integer;
 var x:t1;i,s:integer;
Begin
 writeln('Данные из Таблицы x:');
 for i:=1 to 10 do read (x[i]);
 s:=0;
 for i:=1 to 10 do
 if(x[1] mod 7=0) then s:=s+x[i];
 writeln('Сумма чисел которая делится на 7:',s);
 readln;
End.

Последний раз редактировалось Stilet; 16.12.2015 в 18:27.
Alex26MD вне форума Ответить с цитированием
Старый 16.12.2015, 17:01   #7
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

прочитав это сможете решить свои задачи (подстроить под себя приведенный примеры)
нажми на меня и прочти
p.s. там подробно описана работа с матрицами и "линейными таблицами"
пишу код не только за печеньки

Последний раз редактировалось VIK_aka_TOR; 16.12.2015 в 17:03.
VIK_aka_TOR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблеммы с курсовой IGOR199304 Общие вопросы C/C++ 0 07.11.2011 17:16
проблеммы с формулой Varv Общие вопросы Delphi 1 19.01.2011 18:35
Проблеммы с проектом pisarev-70 Общие вопросы Delphi 2 08.05.2010 19:47
проблеммы с рекурсивной функцией. ciaonataha Общие вопросы C/C++ 2 21.07.2009 16:45
Проблеммы с массивом Almost_Famous Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 21.04.2008 21:25