Написать программу используя FOR

@Милена567 · Регистрация: 17.02.2020

Считая, что Земля - идеальная сфера с радиусом R~ 6350км, определить расстояние до линии горизонта от точки с высотой над Землей, равной 1,2,...,10 км

@Sun Serega · 17.02.2020, 21:11

Pascal

const l = 6350;
 
begin
  for var i := 1 to 10 do
    Sqrt(2*l*i + i*i).Println;
end.

@Vigi · 18.02.2020, 08:00

или:

Pascal

const
  l = 6350;
 
begin
  Range(1, 10).Select(x -> sqrt(2 * l * x + x * x)).Println(newline);
end.

Но это без FOR

@Sun Serega · 18.02.2020, 14:45

Сообщение от Vigi

.Println(newline)

.PrintLines для слабаков?

Да и Linq в данном случае не делает код проще или красивее.

@Vigi · 19.02.2020, 04:23

Сообщение от Sun Serega

.PrintLines для слабаков?

Нет наверное.. просто еще не со всеми конструкциями (функциями тд) данной версия языка за неделю познакомился.

Сообщение от Sun Serega

Да и Linq в данном случае не делает код проще или красивее.

Каму как

Для меня это стиль более ближе , чем-то он схож с python и haskell.

Добавлено через 8 минут
ЗЫ: Если бы еще операторные скобки begin end; заменить на классику си подобных {} (точку входа begin end. можно и оставить) язык ABC смотрелся более лаконично. Но тогда со совместимостью TP и FP будут проблемы... хотя...

@Sun Serega · 19.02.2020, 05:26

b,Shift+Space юзайте и забудьте про {}. begin-end это преимущество паскаля ИМО.

@Vigi · 19.02.2020, 07:33

Сообщение от Sun Serega

b,Shift+Space

сенькс не знал, хотя режим автозавершения кода включен.

Сообщение от Sun Serega

begin-end это преимущество паскаля ИМО.

Ну не знаю минимализм - наше все

@Sun Serega · 19.02.2020, 08:00

C:\Program Files (x86)\PascalABC.NET\template.pct

Там и менять можно, но при обновлении всё сбрасывает, поэтому лучше держать запасную копию.

А с автозавершением кода снипеты (особенно b) - пока не очень дружат. После if и т.п. это боль.

@Vigi · 19.02.2020, 08:28

Sun Serega,

Сообщение от Sun Serega

C:\Program Files (x86)\PascalABC.NET\template.pct

сенькс

Добавлено через 6 минут
Эх взять бы еще от Python оформления блоков кода...

Pascal:

Pascal

 begin
  for var i := 1 to 9 do
  begin
    for var j := 1 to 9 do
    begin
      Write(i * j > 1 ? $'{i * j,3}' : '   ');           
    end;
    Println
  end;
end.

Если бы как в пайтоне:

Pascal

begin
  for var i := 1 to 9 do
      for var j := 1 to 9 do
          Write(i * j > 1 ? $'{i * j,3}' : '   ');           
      Println  
end.

@Милена567 0 / 0 / 0 Регистрация: 17.02.2020 Сообщений: 4
		1
	Написать программу используя FOR 17.02.2020, 20:38. Показов 389. Ответов 8 Метки нет (Все метки) Считая, что Земля - идеальная сфера с радиусом R~ 6350км, определить расстояние до линии горизонта от точки с высотой над Землей, равной 1,2,...,10 км 0

@Sun Serega 2133 / 1277 / 482 Регистрация: 07.04.2017 Сообщений: 4,491
	18.02.2020, 14:45	4
	Сообщение от Vigi .Println(newline) .PrintLines для слабаков? Да и Linq в данном случае не делает код проще или красивее. 0

@Vigi 625 / 466 / 178 Регистрация: 28.05.2012 Сообщений: 1,394
	19.02.2020, 04:23	5
	Сообщение от Sun Serega .PrintLines для слабаков? Нет наверное.. просто еще не со всеми конструкциями (функциями тд) данной версия языка за неделю познакомился. Сообщение от Sun Serega Да и Linq в данном случае не делает код проще или красивее. Каму как Для меня это стиль более ближе , чем-то он схож с python и haskell. Добавлено через 8 минут ЗЫ: Если бы еще операторные скобки begin end; заменить на классику си подобных {} (точку входа begin end. можно и оставить) язык ABC смотрелся более лаконично. Но тогда со совместимостью TP и FP будут проблемы... хотя... 0

@Sun Serega 2133 / 1277 / 482 Регистрация: 07.04.2017 Сообщений: 4,491
	19.02.2020, 05:26	6
	`b,Shift+Space` юзайте и забудьте про `{}`. `begin-end` это преимущество паскаля ИМО. 0

@Vigi 625 / 466 / 178 Регистрация: 28.05.2012 Сообщений: 1,394
	19.02.2020, 07:33	7
	Сообщение от Sun Serega b,Shift+Space сенькс не знал, хотя режим автозавершения кода включен. Сообщение от Sun Serega begin-end это преимущество паскаля ИМО. Ну не знаю минимализм - наше все 0

@Sun Serega 2133 / 1277 / 482 Регистрация: 07.04.2017 Сообщений: 4,491
	19.02.2020, 08:00	8
	C:\Program Files (x86)\PascalABC.NET\template.pct Там и менять можно, но при обновлении всё сбрасывает, поэтому лучше держать запасную копию. А с автозавершением кода снипеты (особенно `b`) - пока не очень дружат. После `if` и т.п. это боль. 1

Опции темы