Zelinskaya-Andrei
?>

[pascalabc] знайти, в якому місці введеного рядка вперше зустрілась літера а

Информатика

Ответы

alekseev13602
'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()
cimora-kativ
#include <cstdlib>#include <iostream>#include <iomanip>#include <cmath>
using namespace std;
int main(){    setlocale(0, "");    double x, y, a, b, xk, xn, dx;    a = 1.4;    b = 2.5;    cout << "Ââåäèòå xn,xk, dx = " << endl;    cin >> xn; cin >> xk; cin >> dx;    x = xn;    cout << "Tabl" << endl;    cout << "+-----------+" << endl;    cout << "¦ x ¦ y ¦" << endl;    while (x <= xk)          {             y = (log10(a*x*x+b))/(a*x+1);             cout << "+-----+-----¦" << endl;             cout.setf(ios::fixed);             cout.precision(3);             cout << "¦" << x << "¦"<< y << "¦" << endl;             x = x + dx;          }    cout << "+-----------+";    system("pause");}
Переделать программу паскаль в си program lab3; var x,y,a,b,xk,xn, dx: real; begin a: =1.4; b: =2.5;

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

[pascalabc] знайти, в якому місці введеного рядка вперше зустрілась літера а
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Антонович937
iraira761
AntonovaAvi1716
Шарабанов
pastore
Dato24043846
gumirovane2294
Любовь-Волков1205
travkinadjey31
myxa120283
Борисовна
elenalukanova
andreevaalisa
sleek73
ngoncharov573