Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Исправить ошибку в математическом тексте: tg(x)=cos(x)/sin(x) https://www.cyberforum.ru/ turbo-pascal/ thread605225.html Написать программу,испровляющую ошибку в математическом тексте : tg(x)=cos(x)/sin(x).	Turbo Pascal Вычислить в каждой матрице количество строк, где все элементы кратны 2 и не кратны 3 Прошу помочь решить задачу: даны 2 матрицы А и В. Вычислить в каждой матрице количество строк, где все элементы кратны 2 и не кратны 3. Для матрицы с большим таких строк, найти среднее геометрическое нечетных элементов. Ввести с клавиатуры строку текста и удалить все согласные буквы. При решении задач использовать процедуры и функции, операторы модулей(CRT и другие) это сделать одной...
Turbo Pascal Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника. https://www.cyberforum.ru/ turbo-pascal/ thread605126.html	Turbo Pascal Решение квадратного уравнения ax2+bx+c=y https://www.cyberforum.ru/ turbo-pascal/ thread605125.html Написать программу решения квадратного уравнения ax2+bx+c=y.
Turbo Pascal Вывести три числа в порядке возрастания Вывести три числа в порядке возрастания.	Turbo Pascal Табулирование функции. Цикл с постусловием https://www.cyberforum.ru/ turbo-pascal/ thread605121.html Для всех вариантов заданий разработать алгоритм и программу, имеющих структуру цикла с постусловием и осуществляющих табулирование заданной функции при изменении аргумента x от начального значения x0 до конечного значения x(n) с постоянным шагом hx , т.е. x=x0 (hx ) xn . f(x)=\begin{cases}\frac{2x+1}{x}, &\text{ if } x<-1; \\ 2-{x}^{2}, & \text{ if } -1\leq x<2 \\ -3, & \text{ if }...
Turbo Pascal Найти число букв "y" в слове х, стоящих на нечетных местах составить программу для подсчета числа букв <y> в слове х састоящих на не четных местах Паскаль https://www.cyberforum.ru/ turbo-pascal/ thread605114.html	Написать программу,которая вычисляет длину кривой Turbo Pascal Написать программу,которая вычисляет длину кривой y=под корнем x*(20-x) ,(0<=x<=20) заменив кривую ломfной с вершинами(0,4i; y(0.4i))где i= 0,1,2…50 подготовить и использовать процедуру для вычисления i-го отрезка
Turbo Pascal Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку https://www.cyberforum.ru/ turbo-pascal/ thread605103.html Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку.	Turbo Pascal Вывести на экран фразу "Жизнь - это движение!" https://www.cyberforum.ru/ turbo-pascal/ thread605087.html Вывести на экран фразу "Жизнь - это движение!". Передвинуть ее на 10 строк вниз с задержкой в 0.25 секунды на каждой строке. Затем аналогичным образом привести ее в первоначальное положение.
Turbo Pascal Файл из матриц Доброго времени суток уважаемые форумчане. Помогите пожалуйста с такой задачкой: Необходимо создать файл из двух матриц размерностей 2х2 и найти сумму элементов каждой. По идеи задачка не сложная... стыдно мне конечно... Я додумался до такой конструкции, но кажись очень перемудрил: const k = 2; col =2; row=2; type vector = array of real; matrix = array of vector;	Turbo Pascal Процедуры и функции модуля Crt. Вывести на экран любое четверостишие. Стереть https://www.cyberforum.ru/ turbo-pascal/ thread605073.html Вывести на экран любое четверостишие. С промежутком примерно в секунду, стереть его построчно с экрана, начиная с первой строки.

mysqlll

0 / 0 / 0

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

Сообщений: 39

Оператор if изменить на randomize - Turbo Pascal - Ответ 3164125

14.06.2012, 09:03. Показов 671. Ответов 1

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

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

Оператор if изменить на randomize :

Pascal

var x,y:integer;
c:char;
 begin
 write('VV napravlenie (C - sever,Z-zapad,I0-I0r,B-Bostok): ');
 read(c);
 if c='?' then x:=0;
 if c='?' then x:=1;
 if c='?' then x:=2;
 if c='?' then x:=3;
 write('VV 1 comand N1: ');
 read(y);
 x:=(x+y+4) mod 4;
 write('VV 2 comand N2: ');
 read(y);
 x:=(x+y+4) mod 4;
 if x=0 then writeln('Orientaciya locatora - sever');
 if x=1 then writeln('Orientaciya locatora - zapad');
 if x=2 then writeln('Orientaciya locatora - I0r');
 if x=3 then writeln('Orientaciya locatora - Bostok');
 end.

Вернуться к обсуждению:
Оператор if изменить на randomize Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.06.2012, 09:03

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

Как работает оператор randomize?
У меня вопрос общего характера: как компьютер выбирает "случайный" вариант? Если на экзе мне...

Метод randomize инициализирует только первый оператор случайных чисел, или все сразу, идущие после него в коде?
То есть, например, есть код: randomize; x:=random(100); y:=random(200); for i:=1 to...

При randomize timer: пишет invalid outside procedure и указывает на randomize Timer
почему в к примеру таком коде: Randomize Timer Dim tm As Integer Private Sub Timer1_Timer() tm...

Оператор else изменить на if
Оператор else изменить на if uses crt; var x,y : integer; begin readln (x,y); ...

	14.06.2012, 09:03

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.06.2012, 09:03

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

Изменить программу так, чтобы выполнялось задание, но не использовался поразрядный оператор ^
#include <iostream> using namespace std; int slog(int n, int m); int main() {...

Randomize
Значит,вопрос такой. Вот возьмём функцию randomize.Т.Е. генерация случайного числа от остатка от...

randomize
Нужно сделать прогу, чтобы массив был из случайных чисел....Но все время получается упорядоченный...

Randomize
Пишу randomize; mr:=random(255); randomize; mg:=random(255); randomize; mb:=random(255); И в...

Наверх