15.10.2019, 11:43 | #1 (permalink) |
Новичок
Регистрация: 15.10.2019
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Даны натуральные числа K, N. Вещественные числа a1,a2...akn
|
15.10.2019, 11:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Моя задача - дать вам знать о том, что на форуме есть похожие посты Даны три положительных вещественных числа x, y, z Паскаль.Даны 2 целых числа. Есть ли у них одинаковые(по значению) разряды? Даны целые числа K и L В двоичном представлении числа инвертировать две последние цифры числа Даны три вещественных числа... |
15.10.2019, 20:04 | #3 (permalink) | |
Новичок
Регистрация: 15.10.2019
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Код:
uses System.SysUtils, Windows; Var n,k,i,x :integer; max1,max2,max3,a :real; Begin Readln(k,n,max1); for i:=2 to k do begin readln(max1); if a>max1 then max1:=a; end; readln(max2); for i:=k+2 to 2*k do begin readln(a); if a>max2 then max2:=a; end; x:=2*k; while x<=k*(n-1)+1 do begin read(a); x:=x+1; end; max3:=a; for i:= x to k*n do begin read(a); if a>max3 then max3:=a; end; Writeln(max1,max2,max3); readln; end. |
|
16.10.2019, 12:18 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так, понятно.
Очень нездорово. Явно бездумная компиляция из чего-то. Ладно, давайте разберём задачку. Итак, у нас есть последовательность вещественных чисел, которая может быть разбита на n "звеньев" по k элементов в каждом. Вот и давайте, прежде всего, зададим эти самые n и k, причем лучше в виде констант — так проще будет задать массивы. Далее описываем переменные. Вводим два массива: нашу последовательность длиной kn и искомую последовательность максимумов длиной n. Кроме того, зададим переменные циклов i и j. Можно, конечно, вводить последовательность с клавиатуры, но проще и быстрее воспользоваться генератором случайных чисел, причём следует использовать команду Random без параметров, поскольку последовательность по условиям задачи вещественная, а не целая. Результат выводим на экран. Дальше обычным образом ищем максимумы "звеньев" и их тоже выводим. Программа и результат представлены ниже. Сразу оговорюсь: у меня обычный Turbo (Free) Pascal, у Вас же, похоже, ABC. За неумелки последнего — не отвечаю. Извините. Код:
Const n=4; k=3; Var A:Array[1..n*k] of Real; Max:Array[1..n] of Real; i,j:Integer; Begin Randomize; Writeln('Initial array:'); for i:=1 to n*k do begin A[i]:=Random*99; Write(A[i]:8:3); end; Writeln; Writeln; Writeln('Maximal values in ',k,'-component groups:'); for i:=1 to n do Max[i]:=0; for i:=1 to n do for j:=1 to k do if A[j+k*(i-1)]>Max[i] then Max[i]:=A[j+k*(i-1)]; for i:=1 to n do Write(Max[i]:8:3); Readln End. |
16.10.2019, 12:37 | #5 (permalink) |
Новичок
Регистрация: 15.10.2019
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное за объяснение, очень сильно помогли. Попробую сделать сам,без массивов. Еще раз спасибо.
Не могли вы бы посоветовать какую-нибудь литературу, пособия и тд, для новичка ("программирую" на делфи 10) Только начал и хочу научиться хотя бы азам написания кода. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.10.2019, 12:53 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
16.10.2019, 13:04 | #7 (permalink) |
Новичок
Регистрация: 15.10.2019
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Просто я совершенно не умею работать с массивами, и хочу попытаться решить эту задачу без массивов.Спасибо за совет. И еще вопрос, сколько лет вы уже занимаетесь программированием, я так понял что уже больше 11 лет?
|
16.10.2019, 14:01 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|