Развилки, ошибка компиляции

@samec051 · Регистрация: 14.01.2015

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

Вот само задание:

Дано l, m, n. Если l<m, вычислить и отпечатать

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> t=\begin{cases}\ln (1+n) & \text{, npu } n>\,2 \\\\ e^{-n} & \text{, npu } n\leq 2 \end{cases}<br />$

Если l≥m, то вычислить и отпечатать k=ml²-cos n

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Lab2;
  var 
    l,m,n,t: real;
  begin
    //  Ввод данных
    writeln('Введите l=');
    readln(l);
    writeln('Введите m=');
    readln(m);
    writeln('Введите n=');
    readln(n);
    //
 
    if l<m then 
         begin
        if n>2 then t:=ln(n+1)
          else n<=2 exp(n)
        end
       else   
  END.

Как поступить с развилкой n<=2 ?
А то у меня ошибка компиляции =/

@ZX Spectrum-128 · 11.10.2017, 21:31

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
program Lab2;
 
var
  k, l, m, n, t: real;
 
begin
    //  Ввод данных
  writeln('Введите l=');
  readln(l);
  writeln('Введите m=');
  readln(m);
  writeln('Введите n=');
  readln(n);
  
  if l < m then 
  begin
    if n > 2 then 
      t := ln(n + 1)
    else 
      t := exp(n);
    writeln(t);
  end
  else
  begin
    k := l * m * m - cos(n);
    writeln(k);
  end;
end.

@samec051 · 11.10.2017, 21:37 **[ТС]**

Можно еще один небольшой вопрос:как возвести число в степень -n?т.е как в условии...

@ZX Spectrum-128 · 11.10.2017, 21:39

Pascal
1
t:=exp(-n);

У меня в программе тоже подправьте.

@samec051 · 11.10.2017, 21:43 **[ТС]**

хах,так просто? я думал там что-то другое надо делать,спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@samec051 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 49
	11.10.2017, 21:37 [ТС]
	Можно еще один небольшой вопрос:как возвести число в степень -n?т.е как в условии... 0

@samec051 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 49
	11.10.2017, 21:43 [ТС]
	хах,так просто? я думал там что-то другое надо делать,спасибо. 0

Развилки, ошибка компиляции

Решение