Этапы создания компьютерной программы. Понятие алгоритма. Виды алгоритмов. Представление алгоритмов в виде блок-схем. Понятие о программировании. Системы и языки программирования. Запись алгоритма на языке программирования. Трансляторы: компиляторы и интерпретаторы. Интерпретатор Quick Basic. Запуск интерпретатора и структура окна. Алфавит языка. Переменные и зачем они нужны. Типы переменных и их запись. Способы объявления переменных. Задание значений переменным. Оператор присваивания. Запись чисел, строк. Арифметические операторы и выражения. Ввод программы. Запуск программы. Исправление ошибок. Сохранение и открытие файлов. Справочная система. Ввод данных. Стандартные функции языка программирования и их использование в арифметических выражениях. Примеры составления простейших линейных программ. Вывод информации на экран. Операторы вывода. Средства расположения информации на экране. Оператор очистки экрана. Комментарии. Константы. Разветвляющиеся алгоритмы. Условный переход IF -THEN - ELSE. Виды условий. Операторы сравнения. Логические операторы и выражения. Сложные условия. Примеры программ с условными операторами. Циклические алгоритмы. Организация циклов с помощью условных операторов. Цикл с параметром FOR. Циклы с предусловием и постусловием. Вложенные циклы.
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
3 не находится в таком соотношении, часть комнаты это пол, стена, но никак не мебель
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!
<em>// PascalABC.NET 3.2, сборка 1415 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function MatRead(var n:integer):array[,] of integer;
// функция создает и возвращает квадратную матрицу n*n,
// элементы которой вводятся к склавиатуры.
// Она фактически не нужна в этой версии Паскаля,
// потому что уже встроена, но раз просят...
begin
Result:=ReadMatrInteger(n,n)
end;
function MatSum(a,b:array[,] of integer):array[,] of integer;
begin
var n:=a.RowCount-1;
SetLength(Result,n+1,n+1);
for var i:=0 to n do
for var j:=0 to n do
Result[i,j]:=a[i,j]+b[i,j]
end;
procedure MatPrint(a:array[,] of integer; p:integer);
// вывод матрицы a в p позициях
// И эта процедура фактически не нужна, но присутствует
// из-за требований задачи.
begin
a.Println(p)
end;
begin
var n:=ReadInteger('n=');
Writeln('Введите элементы матрицы А');
var a:=MatRead(n);
Writeln('Введите элементы матрицы B');
var b:=MatRead(n);
MatPrint(MatSum(Transpose(a),b),4);
Writeln;
MatPrint(MatSum(Transpose(b),a),4)
end.
<u>Пример</u>
n= 3
Введите элементы матрицы А
1 2 3 4 5 6 7 8 9
Введите элементы матрицы B
18 17 16 15 14 13 12 11 10
19 21 23
17 19 21
15 17 19
19 17 15
21 19 17
23 21 19
