Chrome
Программа
На форумах с июня 2004
Местонахождение: антитериторія реальності
Сообщений: 1751
|
1.
данные: Произвольное слово
Результат: вывести сообщение, я вляется ли вторая буква в слове буквое "е"
code:
uses crt;
var s: string;
begin
s := 'text';
if s[2] = 'e' then writeln('the second letter is E'); {или s[1], не помню точно}
end.
2.
данные: Массив из 14 элементов
результат: индекс последнего отрицательного элемента
code:
uses crt;
var a: array[0..13];
i, ind: integer;
begin
for i := 0 to 13 do
begin
a[i] := random(10-5); {заполняем массив любыми числами}
write(A[i]),','); {выводим массив на экран}
if a[i] < 0 then ind := i; {находим индекс последнего отриц. элемента}
end;
writeln(ind); {выводим его}
end.
3.
данные: х=5, 10, 15, 20, 25, 30 градусов
результат: sin(x) для x (х в радианах)
code:
uses crt;
var x: real;
begin
writeln('Enter the X value?'); {вводим число ГРАДУСОВ}
readln(x);
X := (Pi/360)*X; {переводим в радианы}
writeln('Sinus value is ', x);
end.
4 - не совсем понимаю формулировку задачи и вводимые значения.
__________________
shadow admin.
The unclean spirits, whenever they saw him, fell down before him, and cried, «You are the Son of God!». Mark III № 11.
Encrypted, Empowered, Invisible.
Адрес поста | Один пост | Сообщить модератору | IP: Logged
|
01.12.2005 17:15
