0 дауыс
2.0k көрілді
Паскаьда қайталау операторымен есеп шығарып беріңіздерші,өтініш:X арггументінің 1-ден 15-ке дейінгі аралықта 0,5қадам бойынша z=a(sqr(x))+bx+c функциясы мәндерінің ең үлкенін тауып,функция мәнін S массивіне жазу керек

2 жауап

0 дауыс
program esep_1;
    uses crt;
    var s:array [0..1000] of real;
    a, b, c, x, z:real;
    i, max:integer;
    begin
    clrscr;
    writeln('a, b, c manderin enter arkili engizu kerek: ');
    readln(a, b, c);   //z=a(sqr(x))+bx+c formuladagi a, b, c manderin engizu
    for i:=1 to 15 do begin //x mani 1-den 15-ke dein esepteu kerek
    x:=x+0.5;         //x mani +0.5 kadammen osip otiradi
    z:=a*(sqrt(x))+b*x+c; s[i]:=z;    //manderdi massivke menshikteu
    if s[1]<s[i] then max:=i else max:=1; //en ulkenin izdeu
    writeln('s[',i,']=', s[i]:2:2); end; //massivti ekranga shigaru
    writeln('max=',s[max]:2:2);   //massivtegi en ulken mandi shigaru
    readln;
    end.
anau jerde 0..1000 ornina 0..15 dei sal (Kajsya pascalda 0 okimaidi, 1..15 duris bolar men umitip kaldim bunimen esep shigaru)
0 дауыс
Тау кит жүйесі тұрғындарының геномы 26 түрлі негізден тұрады, оларды белгілеу үшін А-дан Z
...