aasprorok
1

Составить процедуру "рисующую" на экране горизонтальную линию из любого числа символов

06.12.2009, 21:50. Показов 10234. Ответов 2
Метки нет (Все метки)

Доброго времени Суток... Прошу помогите с решением двух этих задач.... просто я совсем не смыслю в процедурах и функциях =(.... и не могу решыть.. Заранее спасибо..

1)Рассчитать значение Y, определив и использовав необходимую функцию:
а) y= 1+sin1/3 + 5+sin5/3 + 3+sin3/3
b) y= 2+sin2/sin5+5 + 6+sin6/sin3+3 + 1+sin1/sin4 + 4

2)Составить процедуру "Рисующую" на экране горизонтальную линию из любого числа символов "*"..
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2009, 21:50
Ответы с готовыми решениями:

Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * "
Составить процедуру. "Рисующую" на экране вертикальную линию из любого числа символов " * ".

Процедура, "рисующая" на экране вертикальную линию из любого числа символов "*"
Составить процедуру «рисующую» на экране вертикальную линию из любого числа символов «*»в Турбо...

Процедура рисующая на экране горизонтальную линию из 80 символов "*"
Составить процедуру «рисующую» на экране горизонтальную линию из 80 символов «*».

Составить процедуру, "рисующую" на экране горизонтальную линию из 80 символов "*"
Помогите решить на С#!Составить процедуру, "рисующую" на экране горизонтальную линию из 80 символов...

2
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2009, 12:00 2
Лучший ответ Сообщение было отмечено как решение

Решение

1. Думаю у Вас не расставлены скобки приоритетов арифметических действий. Если я не прав, поправьте сами формулы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
function F1(a:byte):real;
begin
F1:=(a+sin(a))/3;
end;
function F2(a,b:byte):real;
begin
F2:=(a+sin(a))/(sin(b)+b);
end;
begin
clrscr;
writeln('(1+sin(1))/3+(5+sin(5))/3+(3+sin(3))/3 = ',(F1(1)+F1(5)+F1(3)):0:3);
write('(2+sin(2))/(sin(5)+5)+(6+sin(6))/(sin(3)+3)+(1+sin(a1)/(sin(4)+4) = ',(F2(2,5)+F2(6,3)+F2(1,4)):0:3);
readln
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
procedure Linya(a,b:byte);
var i:byte;
begin
gotoXY(1,a);{устанавливаем курсор в певую позицию заданной строки}
for i:=1 to b do write('*');{рисуем заданное количество звездочек}
end;
var y,k:byte;
begin
clrscr;
repeat
write('Введите номер строки для линии от 1 до 25 y=');{количество строк на экране(обычно в Турбо Паскаль)}
readln(y);
until y in [1..25];
repeat
write('Длина линии от 1 до 79 k=');{ширина экрана, минус 1 позиция под курсор}
readln(k);
until k in [1..79];
Linya(y,k);
readln
end.
0
0 / 0 / 2
Регистрация: 15.05.2017
Сообщений: 5
15.05.2017, 22:22 3
Не совсем понятно, что имелось под любым числом?
Количество конкретного символа, как я понял "*", или случайных из таблицы ASCII или и то и другое))
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program LineSymbol:
Uses CRT;
 
Procedure LineN(N:byte);
Var i:byte;
begin
For i:=1 to N do Write('*'); {можно заменить на Write(Chr(Ramdom(255)));}
end;
 
begin
ClrScr;
LineN(50); {горизонтальная линия из 50 символов в текущей позиции}
ReadKey;
end.
Добавлено через 6 минут
Или ещё вариант с указания позиции по горизонтали(X) и вертикали(Y).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program LineSymbol2:
Uses CRT;
 
Procedure LineXY(X,Y,N:byte);
Var i:byte;
begin
GotoXY(X,Y);
For i:=1 to N do Write('*'); 
end;
 
begin
ClrScr;
LineX(10,12,60); {горизонтальная линия из 60 символов по координатам X=10 и Y=12}
ReadKey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2017, 22:22
Помогаю со студенческими работами здесь

Составить процедуру, "рисующую"на экране горизонтальную линию из 80 символов
Составить процедуру,"рисующую"на экране горизонтальную линию из 80 символов.

составить процедуру рисующую на экране горизонтальную линию из 80 символов "*"
составить процедуру рисующую на экране горизонтальную линию из 80 символов "*" Заранее спасибо!

Составить процедуру, "рисующую" на экране горизонтальную линию и блок схему програмы
Составить процедуру, "рисующую" на экране горизонтальную линию из лю- бого числа символов "*"

Составить функцию, "рисующую" на экране горизонтальную линию из 80 символов"*"
Составить функцию, "рисующую" на экране горизонтальную линию из 80 символов"*"


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru