Pascal ABC

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

Войти

Другие темы раздела
Pascal ABC Трижды определить значение суммы https://www.cyberforum.ru/ pascalabc/ thread700662.html трижды определить значение суммы, используя три различных цикла 4 s=∑ (n=x/sqr(n+1)) n=1 const n=4; var x,s: real; i: byte; begin write('Введите x: '); readln(x); s:=0; for i:=1 to n do	Pascal ABC Goto(x,y) ;+graphABC неверно работает https://www.cyberforum.ru/ pascalabc/ thread700536.html Помогите решить, неверно выводит: uses GraphABC,crt; //var begin TextColor(0); HideCursor; LowVideo; Вот что выводит
Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. Pascal ABC 1. Дан массив из К целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов, стоящих рядом. 2. Дан массив из К элементов. Вывести на экран все четные элементы массива в...	Pascal ABC Сложить минимальное четных и максимальное нечетных элементов массива https://www.cyberforum.ru/ pascalabc/ thread700831.html Даны натуральное число n, действительные числа a1, a2, … ,an. Получить min(a2, a4, … )+ max(a1, a3, … ) uses crt; var n,i:integer; a,mn,mx:real; begin repeat write('Cколько чисел ввести n>1 n='); read(n); until n>1; writeln('Введите ',n,' действительных чисел:'); read(mx);
Pascal ABC Найти число m – среднее арифметическое всех элементов массива https://www.cyberforum.ru/ pascalabc/ thread700565.html 2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. Добавлено... const n=25; var ar:array of integer; i,a,s,l:integer; m:real; begin for i:=1 to n do ar:=random(10)-random(20); for i:=1 to n do write(ar,' ');	Pascal ABC Перемещение картинки в GraphABC https://www.cyberforum.ru/ pascalabc/ thread700780.html Кто знает как в GraphABC переместить картинку(чтоб было видно как она перемещаеться), по отрезку из одной точки в другую спасибо уже решил.
Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре Pascal ABC Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 ... uses crt; var a:array of Integer; i,j,k:Integer; procedure rep; var k:Integer; begin k:=a;a:=a;a:=k; end; begin randomize;clrscr; for i:=1 to 10 do a:=random(101); for i:=1 to 4 do for...	Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать первую половину по возрастанию, а вторую – по убыванию https://www.cyberforum.ru/ pascalabc/ thread700492.html Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать первую половину по возрастанию, а вторую – по убыванию. Пример:... максимально просто var a:arrayof integer; i,tmp:integer; f:boolean; begin randomize; for i:=1 to 10 do begin a:=random(100); write(a:4); end;
Изобразить движение транспорта на перекрестке Pascal ABC Нужно сделать движение как на этой картинке все картинки в архиве и залил на хостинк картинок первой должна проехать красная машина ссылки на изображение 1) smotr.im/98JS 2) http://smotr.im/98JT... a1242 Добавлено через 20 часов 34 минуты народ вы где	Pascal ABC Задача про Кузнечика Здравствуйте! Помогите пожалуйста решить задачку: У одного из преподавателей параллели С в комнате живёт кузнечик, который очень любит прыгать по клетчатой одномерной доске. Длина доски — N клеток.... Неужели никто не знает, как сделать задачу??? Здесь столько профессионалов!!! https://www.cyberforum.ru/ pascalabc/ thread700619.html
Pascal ABC Составить программу, которая печатает фамилии людей с данным именем https://www.cyberforum.ru/ pascalabc/ thread700644.html Описать процедуру сравнения двух слов. Составить программу, которая печатает фамилии людей с данным именем. Описати процедуру порівняння двох слів. Скласти програму, яка друкує прізвища людей з... Function F(a,b:string):boolean; Begin F:=a=b; End; Вот те функция для сравнения остальное делай сам так как ничего не указано что и как...	Pascal ABC Замена одного символа на три Здравствуйте. Есть задача: "Даны две строки. Заменить на символы *** символы из 1-ой строки, которые встречаются во второй строке. Исходные строки вводит пользователь." var str1, str2: string;... i:=i+3; j:=0; вы меняете значение переменных цикла внутри этого цикла. и как, получается что ли?:scratch: https://www.cyberforum.ru/ pascalabc/ thread700636.html

Puporev

Почетный модератор

64306 / 47603 / 32742

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

Сообщений: 115,181

18.11.2012, 10:59

Вычислить значение выражения - Pascal ABC - Ответ 3715503

18.11.2012, 10:59. Показов 1069. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

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;
const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i<j then a[i,j]:=sin(i+j)
    else if i=j then a[i,j]:=1
    else
     begin
      x:=(i+j)/(2*i+3*j);
      a[i,j]:=arctan(x/sqrt(1-x*x));
     end;
    write(a[i,j]:7:3);
   end;
  writeln;
 end;
readln
end.

Вернуться к обсуждению:
Вычислить значение выражения Pascal ABC

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

18.11.2012, 10:59

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

Вычислить значение выражения, значение n вводится с клавиатуры
составить программу для решения задачи. При решении задачи через цикл-"хорошо", через цикл и массив-"отлично". Отметка...

Вычислить значение выражения
Нужно решить пару задачек, очень нужно, помогите!

Вычислить значение выражения
Написать программу для вычисления значений арифметических выражений: a+b=?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

18.11.2012, 10:59

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

Вычислить значение выражения
Program pr_2; Var q,,k,d,h:real; Const a=3; b=2; с=1; Begin Readln(c); Q:=sqrt(K+D-sqrt(h)); ...

Вычислить значение выражения
Решите пожалуйста,обязательно с repeat. 1. Вводятся числа до тех пор, пока не введется 0. Определить, сколько среди них целых чисел. ...

Вычислить значение выражения
Помогите напичатать код к этому уровнению. Z=\frac{\prod_{i=1}^{4}\sqrt{{a}_{i}+x}}{\sum_{j=1}^{3}\sqrt{{b}_{j}}}

Вычислить значение выражения
Составить программу для вычисления элементов вектора X по формуле: {x}_{i}=ln{{x}^{2}}_{i-1}-{ln}^{2}\left|{c}_{i-2} \right|,i=3,4,...,n ...

Вычислить значение выражения
как это реализовать в паске? при х=-4.5 у=0.75∙10-4 z=0.845∙102 ...

Новые блоги и статьи Все статьи Все блоги /
Что нового в C# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .

Наверх