program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Ответ №1
С файлом ничего не приключилось, где был, там и лежит
Текст, таблицы и рисунки (но это уже исходя из типа документа).