Люди добрые написать эссе за 5класс на тему "чему меня научила информатика и как я применяю данные знания в повседневной жизни меня информатика ничему не научила и я не хочу получить 2)
Я начал более уверенно пользоваться компьютером, научился использовать такие программы как Word, Excel, Power Point и много других. Я уверенно пользуюсь облачными хранилищами и знаю как правильно использовать компьютер что-бы не испортить здоровье. Начал мыслить логически.
Var {вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2} x1,y1,x2,y2,x3,y3,max,max2:real; begin readln(x1,y1,x2,y2,x3,y3); max:=sqrt(sqr(x1)+sqr(y1)); max2:=1; if sqrt(sqr(x2)+sqr(y2))<=max then begin max:=sqrt(sqr(x2)+sqr(y2)); max2:=2; end; if sqrt(sqr(x3)+sqr(y3))<=max then begin max:=sqrt(sqr(x3)+sqr(y3)); max2:=3; end; writeln(max,' ',max2); end.
Var S:real; N:integer; Begin //Первый S:=0; For N:= 1 to 50 do S:=S+1/N; WriteLn('S = ',S);
//Второй S:=0; N:=0; Repeat N:=N+1; S:=S+1/N; Until N = 50; WriteLn('S = ',S);
//Третий S:=0; N:=0; While N<>50 do Begin N:=N+1; S:=S+1/N; End; WriteLn('S = ',S);
End.
Var X:real; Begin X:=-3; Repeat WriteLn(X:4:1,' ',((3*X*X-2)/4):6:3); X:=X+0.2; Until X>3; End.
Var A:real; i,k:integer; Begin k:=0; WriteLn('Введите 10 чисел'); For i:= 1 to 10 do Begin Read(A); if A<0 then k:=k+1; End; WriteLn('Кол-во отрицательных: ',k); End.
Я начал более уверенно пользоваться компьютером, научился использовать такие программы как Word, Excel, Power Point и много других. Я уверенно пользуюсь облачными хранилищами и знаю как правильно использовать компьютер что-бы не испортить здоровье. Начал мыслить логически.
Информатика полезный предмет.