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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.09.2009, 13:31   #1
Виталька
Пользователь
 
Аватар для Виталька
 
Регистрация: 06.04.2008
Сообщений: 24
Лампочка Массивы, комплесные числа

1. Сгенерировать массив случайных 30 целых чисел в интервале (-50..50). Заменить отрицательные числа нулями. Найти корень наибольшего числа.

2. Найти наибольший общий делитель модулей комплексных чисел: 18564-13923j, 1080-1440j, 7533+10044j.

помогите решить ети две задачки

Последний раз редактировалось Виталька; 19.09.2009 в 13:51.
Виталька вне форума Ответить с цитированием
Старый 20.09.2009, 12:23   #2
decantnik
Пользователь
 
Аватар для decantnik
 
Регистрация: 15.10.2008
Сообщений: 36
По умолчанию

Код:
var a:array [1..100] of integer;
 i:integer;
begin

 for i:=1 to 100 do begin
  a[i]:=random(51)-10;
  if a[i]<0 then
  a[i]:=0;
  write (a[i]:4);

 end;
 
end.
Для нахождения максимального значения, вроде нужно юзать функцию MaxElement.
мб чем и помог..
decantnik вне форума Ответить с цитированием
Старый 20.09.2009, 14:50   #3
Исраил
 
Регистрация: 20.09.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Виталька Посмотреть сообщение
1. Сгенерировать массив случайных 30 целых чисел в интервале (-50..50). Заменить отрицательные числа нулями. Найти корень наибольшего числа.
Код:
uses crt;
var
a:array[1..30] of integer;
i,b:integer;
begin
clrscr;
randomize;
for i:=1 to 30 do
begin
a[i]:=random(100)-50;
write(': ',a[i]);
end; writeln;
for i:=1 to 30 do
begin
if a[i]<=0 then
a[i]:=0;
write(':',a[i]);
end; writeln;
for i:=1 to 30 do
begin
if (a[i]>a[i+1]) and (b<a[i]) then
b:=a[i];
end;
writeln('Samoe bolshoe chislo: ',b);
writeln('Ego koren: ',sqrt(b));
readln;
end.

Последний раз редактировалось SuperVisor; 21.09.2009 в 08:03. Причина: Тэги
Исраил вне форума Ответить с цитированием
Старый 21.09.2009, 08:05   #4
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Свои наработки имеются????
^^^^^^^^^^^^^^^^^^

Это - первый вопрос, который должен задавать уважающий себя программист. Цените свое время - оно стоит очень не дешево..
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума Ответить с цитированием
Старый 21.09.2009, 08:14   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Исраил
Неужели попроще нельзя? Например так:
Код:
  var i:integer;
   a:array[1..30] of integer;max:integer;
begin
 for i:=1 to 30 do begin
  a[i]:=-50+random(100);
  if a[i]<0 then a[i]:=0;
  if max<a[i] then max:=a[i];
  write(a[i]:5);
 end;         writeln;
 writeln(sqrt(max));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.09.2009, 10:39   #6
Виталька
Пользователь
 
Аватар для Виталька
 
Регистрация: 06.04.2008
Сообщений: 24
По умолчанию

народ спасибо за помочь
Виталька вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа n,p, целые числа a1 , ... ,an. Наталья111 Фриланс 10 09.11.2010 20:09
2 столбец для того, чтобы автоматически создавались числа, которые позволяли уравнивать числа в 3 столбце ppv Microsoft Office Excel 37 05.08.2009 21:19
Даны натуральные числа m,n. Посчитать сумму m последнего числа n. лялька Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2008 15:22
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49