Замена строчки

@ExPanXaRa · Регистрация: 13.04.2016

Студворк — интернет-сервис помощи студентам

Как можно заменить строчку if (k mod 2 = 1) then для убирания 2х if?

Pascal

uses crt;
var a,l:real;
m,k:integer;
begin
writeln('a');
readln(a);
k:=1; l:=0;
while k<=a do
begin 
if (k mod 2 = 0) then 
  begin
  if cos(k)>l then
    begin
    l:=cos(k);
    m:=k;
    end;
  end;
if (k mod 2  = 1) then
  begin
  if sin(k)>l then
     begin
     l:=sin(k);
     m:=k;
     end;
  end;
k:=k+1;
end;
writeln('l=',l);
writeln('m=',m);
end.

@Puporev · 17.10.2016, 21:17

Pascal

if (k mod 2 = 0)and(cos(k)>l) then
  begin
   l:=cos(k);
   m:=k;
  end
else if (k mod 2  = 1)and(sin(k)>l) then
  begin
   l:=sin(k);
   m:=k;
  end;

Опции темы

Замена строчки

Решение