Przejdź do głównej zawartości

Funkcja, Makro, MsgBox, InputBox i równanie funkcji.

Napisać funkcję użytkownika, która opisuje podaną zależność
          | x + a     dla  -a <= x <= 0
f(x) = | -x + a    dla   0 <= x <= a           a > 0
          | 0           dla pozostałych x

Zastosować funkcję w arkuszu. Następnie napisać procedurę przypisaną do obiektu w arkuszu, która dla zadanych wartości a oraz x wprowadzanych przez użytkownika wywołuje funkcję i wyświetla wynik w oknie MsgBox. Umieścić w arkuszu okno InputBox lub kontrolki do wprowadzania wartości wejściowych.

Funkcja:

Function Funkcja(a As Integer, x As Integer)
    If -a <= x And x <= 0 Then
        Funkcja = x + a
    ElseIf x >= 0 And x <= a Then
        Funkcja = (-x) + a
    Else
        Funkcja = 0
    End If
End Function

Makro:
  
Sub Makro1()
    Dim x As Integer, a As Integer
    x = InputBox("Podaj x", "Podaj x")
    a = InputBox("Podaj a", "Podaj a")
    MsgBox Funkcja(a, x), , "Wynik"
End Sub

Później należy tylko dodać w arkuszu przycisk albo kształt. Najechać na niego, wcisnąć prawy przycisk myszki i przypisać Makro1
Etykiety:

Komentarze

Prześlij komentarz

Popularne posty z tego bloga

Funkcja Zastap

Napisać funkcję char * Zastap (const char *napis) , która będzie usuwała z tekstu zawierającego liczby całkowite i litery, wszystkie znaki, które nie wchodzą w skład liczby. Pozostawione liczby mają być oddzielone jedną spacją. Nowy tekst jest zwracany jako wskaźnik do poprawionego napisu. Przykład: ‘’ 123 zl 50 zl 632   zl 56zl’’ Po przekształceniu: ‘’ 123 50 632 56” #include <stdio.h> #include <stdlib.h> #include <string.h> #define xmalloc(typ, ilosc) (typ*) _new((ilosc)*sizeof(typ)) void* _new(size_t rozmiar) { void* p; p = malloc(rozmiar); if(p == NULL) { printf("Brak pamieci!"); exit(0); } return p; } char *Zastap(const char *napis) { char *nowy = xmalloc(char, strlen(napis)); while( (*++napis) != '\0') { if( (*napis >= '0' && *napis <= '9') || (*napis == ' ' && *(napis+1) ...
1 komentarz
Czytaj więcej