По информатике: 1. оптимизировать код: y: =4 если y равно 3 тогда z: =10 иначе z: =20 конец если 2. оптимизировать код: пока x не равно 1 x: =1 конец цикла
Var xl,xr,h,x:real; i:integer; begin Write('Введите левую и правую границы изменения х, затем шаг: '); Read(xl,xr,h); for i:=1 to Trunc((xr-xl)/h)+1 do begin x:=xl+(i-1)*h; Writeln(x:0:4,' ',abs(sin(x))+cos(abs(x))) end end.
Пример Введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18 1.2000 1.2943968404439 1.3800 1.17149436167019 1.5600 1.01073783728823 1.7400 0.817321730886476 1.9200 0.597495822534427 2.1000 0.358363262049017 2.2800 0.107651047653376 2.4600 -0.146539653537401 2.6400 -0.395995275405633 2.8200 -0.632655254626053 3.0000 -0.848872488540578
Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
y,z:integer;
begin
y:=4;
if y=3 then
z:=10
else z:=20;
end.
вторая прога
var
x:integer;
begin
while x<>1 then
x:=1
end.