Является ли текст идентификатором?

@Fear Beast · Регистрация: 17.05.2010

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

Доброго времени суток!

Буду очень признателен, если поможете в решении. Не получается решить(ибо нет навыков к сожалению пока) или найти решение для следующих задач:

1. Определите f – угол (в градусах) между положением часовой стрелки в начале суток и её положением в h часов, m минут и s секунд (0<h<11, 0<m<59, 0<s<59).

2. Существует две фазы сна: быстрый и медленный сон. Фазы чередуются. Сначала наступает медленный сон и длится tм минут. Фаза быстрого сна длится tБ минут. Человек, разбуженный в фазу быстрого сна, чувствует себя намного бодрее, чем человек, разбуженный в фазу медленного сна. Определить состояние человека, если он лег спать в h1 часов m1 минут и был разбужен в h2 часов m2 минут.

3. По древней легенде шах решил наградить мудреца за изобретение шахмат. Мудрец попросил в качестве награды выдать ему зерно, причем количество зерна оговорил так: на первую клетку шахматной доски положить 1 зернышко; на 2–ю – два зерна; на 3–ю – четыре и т.д., т.е. помещая на каждую следующую клетку больше зерен, чем на предыдущую. Определите вес и количество зерен, которое покроет доску. Считать, что в одном грамме 15 зерен. С какой точностью получен результат?

4. Дан текст. Выяснить, является ли этот текст идентификатором; десятичной записью целого числа.

5. Проверить, является ли заданная целочисленная квадратная матрица L(n,n) магическим квадратом, т.е. сумма элементов матрицы по строкам, по столбцам и по диагоналям одинакова. Для n>=4 предусмотреть заполнение массива случайными числами из диапазона –10 до 10.

6. Даны натуральные числа n и m. Среди чисел n, n+1, ... , m найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел, определив подпрограмму, позволяющую распознавать полные квадраты.

Заранее большое спасибо!

@yanyk1n · 17.05.2010, 17:44

1)

Pascal

uses crt;
var h,m,s:integer;
angle : real;
 
begin
 clrscr;
 write('H M S -> ');
 readln(h, m, s);
 if h<=12 then h:=h-12;
 angle := 360 * (h*3600 + m*60 + s) / (12*3600);
 writeln(angle:0:3);
 readln;
end.

@NIch · 17.05.2010, 17:47

3.

Код

var
 i, sum: word;
...
sum := 0;
for i = 1 to 64 do 
begin
 Sum := Sum + i;
end;

@Fear Beast · 17.05.2010, 17:51 **[ТС]**

Спасибо!

@NIch · 17.05.2010, 17:57

Неверно...
Я не правильно с начала понял задние...
А редактировать почему то не могу...Да и ВВ коды не работают...
Прошу удалить пост...

Добавлено через 5 минут
3.

Код

var
 i, sum, m: word;
...
sum := 0;
m := 1;
while i <> 64 do
begin
 Sum := Sum + m;
 m := m+m;
 inc(i);
end;

@Fear Beast · 18.05.2010, 15:48 **[ТС]**

Up. Осталось 4-ре.

@Fear Beast 2 / 2 / 0 Регистрация: 17.05.2010 Сообщений: 39
		1
	Является ли текст идентификатором? 17.05.2010, 17:40. Показов 1830. Ответов 5 Метки нет (Все метки) Доброго времени суток! Буду очень признателен, если поможете в решении. Не получается решить(ибо нет навыков к сожалению пока) или найти решение для следующих задач: 1. Определите f – угол (в градусах) между положением часовой стрелки в начале суток и её положением в h часов, m минут и s секунд (0<h<11, 0<m<59, 0<s<59). 2. Существует две фазы сна: быстрый и медленный сон. Фазы чередуются. Сначала наступает медленный сон и длится tм минут. Фаза быстрого сна длится tБ минут. Человек, разбуженный в фазу быстрого сна, чувствует себя намного бодрее, чем человек, разбуженный в фазу медленного сна. Определить состояние человека, если он лег спать в h1 часов m1 минут и был разбужен в h2 часов m2 минут. 3. По древней легенде шах решил наградить мудреца за изобретение шахмат. Мудрец попросил в качестве награды выдать ему зерно, причем количество зерна оговорил так: на первую клетку шахматной доски положить 1 зернышко; на 2–ю – два зерна; на 3–ю – четыре и т.д., т.е. помещая на каждую следующую клетку больше зерен, чем на предыдущую. Определите вес и количество зерен, которое покроет доску. Считать, что в одном грамме 15 зерен. С какой точностью получен результат? 4. Дан текст. Выяснить, является ли этот текст идентификатором; десятичной записью целого числа. 5. Проверить, является ли заданная целочисленная квадратная матрица L(n,n) магическим квадратом, т.е. сумма элементов матрицы по строкам, по столбцам и по диагоналям одинакова. Для n>=4 предусмотреть заполнение массива случайными числами из диапазона –10 до 10. 6. Даны натуральные числа n и m. Среди чисел n, n+1, ... , m найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел, определив подпрограмму, позволяющую распознавать полные квадраты. Заранее большое спасибо! 0

@NIch 401 / 312 / 74 Регистрация: 17.03.2010 Сообщений: 1,119
	17.05.2010, 17:47	3
	3. Код var i, sum: word; ... sum := 0; for i = 1 to 64 do begin Sum := Sum + i; end; 1

@Fear Beast 2 / 2 / 0 Регистрация: 17.05.2010 Сообщений: 39
	17.05.2010, 17:51 [ТС]	4
	Спасибо! 0

@NIch 401 / 312 / 74 Регистрация: 17.03.2010 Сообщений: 1,119
	17.05.2010, 17:57	5
	Неверно... Я не правильно с начала понял задние... А редактировать почему то не могу...Да и ВВ коды не работают... Прошу удалить пост... Добавлено через 5 минут 3. Код var i, sum, m: word; ... sum := 0; m := 1; while i <> 64 do begin Sum := Sum + m; m := m+m; inc(i); end; 1

@Fear Beast 2 / 2 / 0 Регистрация: 17.05.2010 Сообщений: 39
	18.05.2010, 15:48 [ТС]	6
	Up. Осталось 4-ре. 0