Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 07.10.2010
Сообщений: 37
1

лаба. 3 задания, написать для каждого задания отдельную прогу.

10.10.2010, 18:14. Просмотров 1879. Ответов 5
Метки нет (Все метки)

5*. Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число, не различимы. Написать программу, находящую для любого угла, соответствующий ему угол из диапазона [0, 2pi).

6. Найти сумму двух случайных а) целых чисел из диапазона 50 до 100; б) вещественных чисел из диапазона [3.5, 8). Для решения этой задачи понадобится функция, генерирующая псевдослучайные числа. Это стандартная функция random. Разобраться с функцией random по встроенной в систему справке! В этой справке будет непонятное слово «word» и непонятная функция «randomize». С ними тоже разобраться по справке.
Процедура Randomize инициализирует генератор случайных чисел текущим временем. Её нужно вызвать 1 раз в начале программы (Randomize. В результате при следующем запуске программы числа будут разные, а если эту процедуру не использовать, то одни и те же.

2. Дано четырёхзначное целое число (записано в одной переменной). Найти число, полученное перестановкой цифр. Исходный порядок цифр «abcd». Новый порядок цифр по вариантам:
1) bcda, 2) badc, 3) dbca, 4) cdab, 5) acbd, 6) dcab.

если есть возможность то для каждого варианта распишите во 2-ом задании
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2010, 18:14
Ответы с готовыми решениями:

Объединить программы для задания 1 и задания 2 в одну
Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну....

Создание Кругов Для каждого задания
Привет всем! Нужно чтоб создавались круги при создании заданий которые будут Тех цветов к какому...

Как сделать чтоб для каждого Задания выводилось свое время завершения?
Есть таблица Таскс в которой хранятся название задачи и проект задачи. Есть таблица Таймс,в ней...

Написать функцию для реализации задания
Превратить в список, где каждый атом список. Насколько я понял когда задан список (например...

5
112 / 112 / 13
Регистрация: 01.10.2008
Сообщений: 876
10.10.2010, 18:26 2
ну давай нарботки или ты хочешь чтоб тебе бесплатно все сделали ?
0
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
10.10.2010, 18:38 3
Pascal
1
2
3
4
5
6
7
8
var
y,x:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.
под б сможете сделать по аналогии?

Добавлено через 9 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
s:string;
i,k:integer;
x,y,z,q:char;
begin
repeat
readln(s);
k:=0;
for i:=1 to length(s) do begin
k:=k+1;
end;
until k=4;
x:=s[1];
y:=s[2];
z:=s[3];
q:=s[4];
s[1]:=s[2];
s[2]:=s[3];
s[3]:=s[4];
s[4]:=x;
writeln(s);
end.
Остальные так же, по аналогии.
0
1 / 1 / 0
Регистрация: 07.10.2010
Сообщений: 37
10.10.2010, 18:39  [ТС] 4
Цитата Сообщение от Шутка Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
var
y,x:integer;
b,a:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.
под б сможете сделать по аналогии?
да попробую,
0
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
10.10.2010, 18:41 5
Цитата Сообщение от Utyf Посмотреть сообщение
да попробую,
Если будут вопросы - спрашивайте. Помогу =)
0
27 / 27 / 7
Регистрация: 02.12.2009
Сообщений: 66
10.10.2010, 18:42 6
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
31
32
33
34
var
 n:integer;
 i,:integer;
 s:string;
 d:string;
function var1(x:string):integer;
  var 
   g:integer; 
 begin
    d:=X[1];
    X[1]:=X[2];
    X[2]:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
function var2(x:stirng):integer;
 var 
  g:integer;
 begin
    d:=X[1];
    X[1]:=X[2]
    X[2]:=d;
    d:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
begin
 Write('Введите 4х-значное число : ');readln(n);
  Str(n,s);
  write(var1(s));
  write(var2(s));
end.
вот для первых двух вариантов второй задачи ! если разберешься то функции var1 И var2 можно сможешь пределать под var3,4,5,6!
Не тестил!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2010, 18:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

После задания 8.04 консоль закрывается, хотя впереди еще задания и readln-ы
Добрый день, делаю несколько простых заданий связанных со строками, проблема в том что после...

Четыре школьных задания, буду очень благодарен( задания прикреплены)
Первое задание решить при помощи двумерной таблицы. Буду очень благодарен.

Как для задания курсора написать запрос?
— Сделать выборку данных из таблицы Lease с использованием курсора и цикла с методом %FOUND для...

Написать программу, которая позволяет редактировать задания для теста.
Написать программу в Delphi, которая позволяет редактировать задания для теста.Возможности: 1)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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