Работа цикл for(для паскаля) 1.составить программу,которая выводит на экран таблицу деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой). 2.составить таблицу значени функции y=x^3+2 на отрезке [-5; 5] с шагом 1.
// Составить программу, которая выводит на экран таблицу деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой).
var x: real; i: word; begin writeln('Таблица деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой)'); for i:=1 to 10 do begin x:=11/(i); writeln('11/',i,' =',x:0:2); end; end.
// Со<span class="_wysihtml5-temp-placeholder"></span>ставить таблицу значений функции y=x^3+2 на отрезке [-5;5] с шагом 1. var x,y: real; i: shortint; begin writeln('Таблица значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.'); for i:=(-5) to 5 do begin y:=i*i*i+2; writeln('При х=',i,' y=',y); end; end.
По бокам коробки кругленькие кнопки. Тут же рядом, в уголке ручка с трубкой на шнурке. Без языка говорит, прекрасно слышит без ушей.(телефон) Под крышей — четыре ножки, а на крыше — суп да ложки.(стол) Маленькая, плоская, в компьютер вставляется, Тут же сказки, и подсказки, даже фото появляются!( Дискета) С листьями, но не растение.Сшита, но не одежда.Много о людях знает, но не детектив.(Записная книжка) Маленькие зверьки, серенькие шубки. Длинные хвосты, черненькие глазки, остренькие зубки.(мышь) Про школу не знаю
1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); if a[x,y] mod 2=0 then a[x,y]:=0; end; writeln; end; writeln; for x:=1 to n do begin for y:=1 to n do write(a[x,y]:4); writeln; end; end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран. uses crt; const n=3; var a: array [1..n,1..n] of integer; x,y: integer; begin for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; writeln; for x:=1 to n do for y:=1 to n do if a[x,y]=0 then writeln(x,',',y); end.
var x: real;
i: word;
begin
writeln('Таблица деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой)');
for i:=1 to 10 do begin
x:=11/(i);
writeln('11/',i,' =',x:0:2);
end;
end.
// Со<span class="_wysihtml5-temp-placeholder"></span>ставить таблицу значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.
var x,y: real;
i: shortint;
begin
writeln('Таблица значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.');
for i:=(-5) to 5 do
begin
y:=i*i*i+2;
writeln('При х=',i,' y=',y);
end;
end.