Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы https://www.cyberforum.ru/ pascalabc/ thread1744053.html C клавиатуры вводится матрица n*m 1.найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы . 2.найти сумму чисел кратным трем в каждой строке матрицы и записать эту сумму в последний столбец . 3.с клавиатуры вводится номер столбца упорядочить по убыванию элементы в этом столбце.	Pascal ABC Получить гистограмму длин строк файла Заданный текстовый файл. Получить гистограмму длин строк этого файла. вот что мне удалось написать. program fajly; var f:text; a:array of string; len:array of integer; max,i,n,m,j:integer; begin assign(f,'f.txt'); rewrite(f); readln(n); close(f); reset(f);
Pascal ABC Найти сумму элементов главной диагонали матрицы Дан двумерный массив n*m. Найти сумму элементов главной диагонали при n=m. https://www.cyberforum.ru/ pascalabc/ thread1743870.html	Pascal ABC Написать программу, которая находит максимальное значение и умножает его на минимальное значение https://www.cyberforum.ru/ pascalabc/ thread1743869.html Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение.
Pascal ABC Составить программу, которая находит сумму четных элементов массива Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива.	Pascal ABC Найти количество согласных букв предложения В входном файле записано предложение. Вывести в выходной файл построчно следующие результаты количество согласных букв, самое длинное слово, сумму нечетных цифр, сумму чисел, все слова палиндромы, напечатать все символы встречающиеся в тексте только один раз https://www.cyberforum.ru/ pascalabc/ thread1743830.html
Pascal ABC Возведение числа в квадрат, передача параметра по значению и по ссылке https://www.cyberforum.ru/ pascalabc/ thread1743813.html Написать две функции возведения числа в квадрат. Использовать в первой функции передачу параметра по значению, во второй – по ссылке.	Составить двусвязный список из слов некоторого предложения Pascal ABC 2. Составить двусвязный список из слов некоторого предложения. Вставить новое слово перед каким-либо из элементов списка. Что останется от повторенного несколько раз удаления каждого второго элемента (какое последнее слово).
Pascal ABC Все четные числа заменить нулем 1.Дан односвязный список типа кольцо, элементами которого являются целые числа. Все четные числа заменить нулем. https://www.cyberforum.ru/ pascalabc/ thread1743700.html	Pascal ABC Определить прирост суммы вклада в банке (циклы с пред- и пост-условием) Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц. https://www.cyberforum.ru/ pascalabc/ thread1743678.html
Pascal ABC Анимация: взлет ракеты \помогите пожалуйста нарисовать ракету с анимацией взлета	Pascal ABC Вывести все простые числа, оканчивающиеся на 1 Создать файл из 250 целых чисел, лежащих на отрезке U, используя генератор случайных чисел. -Вывести все данные на экран. -Вывести все простые числа, оканчивающиеся на 1. -Найти числа, отличающиеся от среднего арифметического более чем на 100. Помогите пожалуйста. Надо сдать что бы был допуск к экзамену. https://www.cyberforum.ru/ pascalabc/ thread1743612.html

ZX Spectrum-128

6809 / 4566 / 4819

Регистрация: 05.06.2014

Сообщений: 22,438

24.05.2016, 18:36

Операция 'and' не применима к типу KeyValuePair<real,integer> - Pascal ABC - Ответ 9183777

24.05.2016, 18:36. Показов 1361. Ответов 1

Метки (Все метки)

Ответ

Pascal

var
  X, X1, Y1, Y: REAL;
 
begin
  WRITELN('ВВЕДИ X: ');
  READLN(X);
  Y := EXP((-X + 1) * LN(3) ) * SIN(X);
  WRITELN(' При Х=', X:8:3, 'Y= ', Y:8:4);
  WRITELN(' Y11= ', TRUNC(Y):4, 'Y22= ', ROUND(Y):4);
  WRITELN('ВВЕДИ КООРДИНАТЫ: Х1, Y1 ');
  READLN(X1, Y1);
  WRITELN((X1>=0) AND (Y1>=0) AND ((SQR(X) + SQR(Y)) <= 1));
end.

Вернуться к обсуждению:
Операция 'and' не применима к типу KeyValuePair<real,integer> Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.05.2016, 18:36

Готовые ответы и решения:

Program1.pas(10) : Операция 'mod' не применима к типу real
program Olump_1; var s: integer; n,d: real; begin d:=2; s:=1; n:=289; while n>d do...

Program1.pas(7) : Нельзя преобразовать тип KeyValuePair<real,integer> к real
program pomogite; var x, y: real; begin readln(x); if x=>-2 and 3>=x then y:=sqrt(x*x+4) ...

Операция '=' не применима к типам char и real
Как мне записать код нормально чтобы выполнялось всё по порядку? Мне надо, чтобы при вводе...

Ошибка в программе: Операция '=' не применима к типам real и boolean
Помогите исправить ошибку в 9 строке программы: program storinka40zadacha7; uses crt; var...

	24.05.2016, 18:36

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.05.2016, 18:36

Помогаю со студенческими работами здесь

Операция '<=' не применима к типам boolean и integer
Подскажите, как исправить var r, m, l, C: integer; begin begin if (1<=l<=r<=200000) and...

Операция '=' не применима к типам boolean и integer
Помогите с ошибкой "Операция '=' не применима к типам boolean и integer" ошибка к строке 16....

Ошибка: Операция '<>' не применима к типам integer и boolean
Уважаемые форумнечане, подскажите как решить данную проблему, программа выдает ошибку "pas1.pas(5)...

Program5.pas(7) : Операция '<' не применима к типам boolean и integer
program jhbg; var a,b,c,d:longint; begin Writeln ('Введите скорости'); Readln (a,b); Readln...

Наверх