Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ExPanXaRa
0 / 0 / 0
Регистрация: 13.04.2016
Сообщений: 2
1

Замена строчки,2 секунды,информатика 11 класс)

17.10.2016, 20:49. Просмотров 138. Ответов 1
Метки нет (Все метки)

Как можно заменить строчку if (k mod 2 = 1) then для убирания 2х if?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2016, 20:49
Ответы с готовыми решениями:

Информатика 11 класс
Кому не сложно, и кто в этом что-то понимает и хорошо разбирается.

информатика 9 класс
ввести номер месяца и номер дня, вывести число дней, оставшихся до 1 мая....

10 класс информатика. Язык Паскаль
1) периметр треугольника равен P. длины двух сторон равны между собой. найти...

Нужно удалить все строчки, которые удовлетворяют условию заданой строчки
нужно удалить все строчки которые удовлетворяют условию заданой строчки, а то...

Создать базовый класс Тройка_чисел (Triad) и производный класс Time с полями часы, минуты и секунды
Наследование. Виртуальныефункции.Полиморфизм. 1. Цельзадания: 1) Создание...

1
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
17.10.2016, 21:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
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;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2016, 21:17

Замена отрицательных элементов первой строчки на 0
Дана целочисленная матрица размера 5х5. Заменить в данной матрице все...

Замена строчки в файлах на название самого файла
Доброй ночи, помогите мне нужно в многих файлах переименовать одинаковые...

Замена первого символа в каждой строчки memo
Здравствуйте! Как заменить первый символ в каждой строчке memo? Вот шаблон; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru