Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal 2-е задачи по массивам https://www.cyberforum.ru/ pascal/ thread2518697.html
Здравствуйте, помогите решить две задачи по паскалю, заранее огромное спасибо! 1. Массив из чисел 0-50. Найдите сумму номеров и сумму значений минимального и максимального элементов 2. Найти...
Бинарное дерево Pascal
Задание: сформировать бинарное дерево с ключами: 70, 90, 43, 19, 37, 92, 85, 107. Удалить вершину, элементом которой является буквосочетание "ED". Вывести промежуточный и окончательный результаты.
Pascal Составить программу для вычисления суммы ряда
Составьте программу вычисления суммы: y=-2+5+8+11-14+…
Pascal Как переделать программу под текстовые фаилы Нужно из типизированных переделать в текстовые type tfile = file of real; procedure create_file(var f: tfile); var a: integer; i: integer; n: integer; begin https://www.cyberforum.ru/ pascal/ thread2518285.html
Pascal Задача по теме «Работа со строками» https://www.cyberforum.ru/ pascal/ thread2518231.html
Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *.
Программа для вычисления интеграла Pascal
Друзья,спасайте студента.Нужно написать программу для вычисления интеграла методом парабол и методом трапеций.Ну или хотя бы одним из них. Help!!!
Pascal Перебор
Например есть формула : 10a+5b+0.5c = 100. Как возможно перебрать все возможные варианты a b и c в целых числах?
Pascal Найти среднее геометрическое n-го количества чисел Помогите пожалуйста!! Мне нужно высчитать среднее геометрическое положительных и непарных чисел с интервала а(15) я код написал но не могу сделать чтобы оно считало среднее геометрическое.Просто... https://www.cyberforum.ru/ pascal/ thread2518013.html
Pascal Шахматы https://www.cyberforum.ru/ pascal/ thread2518010.html
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: первое число - номер вертикали(при счете слева направо), второе - номер горизонтали(при счете снизу...
Pascal Самый выгодный участок земли Суть задачи. Дано квадрат стороны которого лежат на осях координат I четверти. Квадрат разрезали линиями начало и конец которых задается координатами. Нужно определить площадь наибольшего участка... https://www.cyberforum.ru/ pascal/ thread2517941.html
2347 / 756 / 552
Регистрация: 15.01.2019
Сообщений: 2,346
20.11.2019, 16:09 0

Какую роль выполняет в этой программе переменная t?

20.11.2019, 16:09. Показов 2508. Ответов 9
Метки (Все метки)

Лучший ответ Сообщение было отмечено Lifelover22 как решение

Решение

Цитата Сообщение от Lifelover22 Посмотреть сообщение
значения которого - случайные числа из отрезка [10, T] (T>50).
Программа действительно не работает так как нужно, потому что строка написана неверно. И никто этого не заметил.
Pascal
1
a[i,j]:=10+random(t+1);
Нужно было написать
Pascal
1
a[i,j]:=10+random(t - 9);
Ваяем простейшую тестовую программку.
Pascal
1
2
3
4
5
6
7
8
9
program Project1;
var
  i,t: integer;
begin
  t:= 51;
  for i:= 1 to 100 do
    write((10 + random(t-9)):4);
  readln;
end.
И проверяем. Среди выведенных чисел не должно быть значений меньше 10 и больше 51.

Вернуться к обсуждению:
Какую роль выполняет в этой программе переменная t?
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2019, 16:09
Готовые ответы и решения:

Какую блок схему нужно нарисовать к этой программе?
//Ребус #include<conio.h> #include<iostream.h> void main() { int i,j,r; long int...

Какую роль выполняют операторы s[j] и sum и зачем они нужны в программе
Объясните пожалуйста какую роль выполняют операторы s и sum и зачем они нужны в программе. program...

Опишите программу и объясните что выполняет сos и sin в этой программе
uses crt, graphabc; var d,m,x,y,n,k:integer; xx,yy,t,a:real; const xo=320; yo=200; begin...

Какую роль выполняет переменная i ?
какую роль выполняет переменная i? procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode:...

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