Вычислить сумму квадратов элементов массива (2; 1; 0; -1; -2; -3; 10) : дан массив элементов . выполнить и вывести на печать результата нужно код для qbasic по этой
CLS DATA 2,1,0,-1,-2,-3,10 DIM a(1 TO 7) AS INTEGER s = 0 FOR i = 1 TO 7 READ a(i) s = s + a(i) ^ 2 NEXT i PRINT "s="; s END
Результат выполнения: s= 119 Замечание Можно было обойтись без оператора DIM a(1 TO 7) AS INTEGER, поскольку QBasic позволяет не описывать массивы размером до 10 элементов.
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
DATA 2,1,0,-1,-2,-3,10
DIM a(1 TO 7) AS INTEGER
s = 0
FOR i = 1 TO 7
READ a(i)
s = s + a(i) ^ 2
NEXT i
PRINT "s="; s
END
Результат выполнения:
s= 119
Замечание
Можно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,
поскольку QBasic позволяет не описывать массивы размером до 10 элементов.