Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Вычислить значение переменной S по формуле https://www.cyberforum.ru/ free-pascal/ thread2351029.html Вычислить значение переменной S по формуле: s=\sum_{i=1}^{20} A_i B_i, где А и В – одномерные целочисленные массивы, состоящие из 20-ти элементов. Значения элементов массивов А и В вводятся с клавиатуры. Вывести экран полученное значение S.	Free Pascal Рекурсивная замена одного символа другим в строке Напишите функцию replaceChar (s: string; c: char; d: char): string который возвращает преобразованную строку, в которой все вхождения символа c были заменены символом d. Например, replaceChar ('potato', 'o', 'a') возвращает 'patata'. Важно: вы не можете использовать любые петли (для, while, repeat) в replaceChar или любую функцию, которую он вызывает. Поэтому вам нужно будет написать...
Free Pascal Монотонность последовательности https://www.cyberforum.ru/ free-pascal/ thread2350615.html Входной файл vstup.txt (обратите внимание на строчное имя!) Содержит ряд положительных целых чисел, счет которых не известен заранее. Цифры разделяются пробелами и символами новой строки. Между цифрами может быть более одного пробела, и пробелы могут появляться в начале или конце строки. Программа должна определять тип монотонности данной последовательности чисел. Последовательность может...	Free Pascal Подсчет количества дней от начала века до введенной даты Написать прогу. посчитайте количество дней от начала века до введенной даты https://www.cyberforum.ru/ free-pascal/ thread2350348.html
Задачи Free Pascal Здравствуйте, помогите, пожалуйста, написать программы к двум задачам.	Free Pascal Можно ли, переставив члены данной последовательности, получить арифметическую прогрессию? (нужна блок-схема) Помогите, пожалуйста, с блок схемой:help: Определить, можно ли, переставив члены данной последовательности, получить арифметическую прогрессию это задача к которой нужна блок схема. а это код var a:array of integer; n,i,j,x:integer; f:boolean; begin repeat write('Введите размер последовательности до ',nmax,' n='); https://www.cyberforum.ru/ free-pascal/ thread2349596.html
Free Pascal Количество вхождений в упорядоченном массиве https://www.cyberforum.ru/ free-pascal/ thread2349385.html Первая строка ввода содержит неотрицательное целое число N. Вторая строка содержит последовательность из N целых чисел в отсортированном (то есть неубывающем) порядке, разделенном пробелами. Третья строка содержит ряд чисел для поиска во входной последовательности. Вход заканчивается после третьей строки. Прочтите отсортированную последовательность ввода в память. Для каждого номера в третьей...	Выберите выражения, записанные верно Free Pascal Var a, b, c: char; d, g: real; t, f: boolean; Выберите выражения, записанные верно. a:=succ('v'); b:=a*g; b:='5'; c:=pred(a); b:='12'; t:=d or f;
Free Pascal Выберите строку, в которой нет ошибки применения данной процедуры 1 Даны описания: Var a,b:integer; c,d:real; procedure obmen(var a:integer; var b:integer); Var s:integer; Begin s:=a; a:=b; b:=s; end; Выберите строку, в которой нет ошибки применения данной процедуры. https://www.cyberforum.ru/ free-pascal/ thread2349170.html	Free Pascal Выберите строку, в которой есть ошибка при обращении к массиву https://www.cyberforum.ru/ free-pascal/ thread2349135.html Дано описание массива в разделе описания переменных: Var a: array of integer; Выберите строку, в которой есть ошибка при обращении к массиву. A:=387; A:=123; A:=26; A:=a;
Чему будут равны значения полей записи? Free Pascal Дан фрагмент программы: Type aaa = record a, b: integer; c: char; end; Var z: aaa; Begin With z do begin a:=25; b:=25+8; c:=succ('c'); end; z.b:=z.a; z.a:=z.b*2;	Free Pascal Сколько раз отработает цикл? https://www.cyberforum.ru/ free-pascal/ thread2349127.html Дан фрагмент программы: b:=8; k:=1; a:=2; Repeat k:=k*a; Until k<b; Writeln(k); Сколько раз будет работать цикл?

ZX Spectrum-128

6809 / 4566 / 4819

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

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

15.11.2018, 10:48

Вычислить значения функции при значениях аргумента, заданных в одном массиве, и поместить их в другой массив - Free Pascal - Ответ 13060960

15.11.2018, 10:48. Показов 3188. Ответов 1

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

Ответ

Pascal

{Задан целочисленный массив Х размером 5 элементов. Элементы массива Х вводятся 
с клавиатуры.Вычислить значение функции y= 0.5ln x при значениях аргумента, 
заданных в массиве Х, поместить их в массив У. Вывести элементы массивов Х и У 
в виде двух столбцов. }
const
  n = 5;
 
var
  x, y: array [1..n] of real;
  i: integer;
 
begin
  for i := 1 to n do
    read(x[i]);
  readln;
  for i := 1 to n do
  begin
    y[i] := 0.5 * ln(x[i]);
    writeln(x[i]:8:3, y[i]:8:3);
  end;
end.

Вернуться к обсуждению:
Вычислить значения функции при значениях аргумента, заданных в одном массиве, и поместить их в другой массив Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.11.2018, 10:48

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

Вычислить и вывести на экран значение функции при некоторых значениях аргумента
Вычислить и вывести на экран значение функции при некоторых значениях аргумента. Значение...

Составить программу для вычисления значения функции U(x,y) при заданных значениях аргументов x и y
Помогите составить программу, что-то совсем не понятно как ее делать. Составить программу для...

Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y
Добрый день! Нужна помощь в решение задачи. Требуется : Составить блок-схему и программу для...

	15.11.2018, 10:48

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.11.2018, 10:48

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

Массив: Вычислить значения функции при значениях аргумента, заданных в массиве X, и поместить в массив Y.
1. Задан массив*X*из 5 элементов. Вычислить значения функции**при значениях аргумента, заданных в...

Вычислить значения функции при значениях аргумента, заданных в массиве
4. Задан массив, состоящий из 5 элементов. Вычислить значения функции у = х^2 при значениях...

Вычислить значения функции y = -0,5 ln (x) при значениях аргумента, заданных в массиве X
Дан массив X, размером 5. Вычислить значения функции y = -0,5 ln (x) при значениях аргумента,...

Вычислить значения функции y=2Cos(x) при значениях аргумента, заданных в массиве
Сформировать одномерный массив N случайных чисел из интервала (-10; 10). Предусмотреть...

Наверх