РЕБЯТА С ИНТЕРНЕТ УРОКА С ИНФОРМАТИКОЙ Напишите программные коды на языке Паскаль для решения задания 1-3. Все задания обязательно нужно выполнить, используя программное обеспечение. Рукописный вариант кода на проверку не принимается.
•Задание 1
Вычислите значение функции (задача на фото!). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры.
•Задание 2
Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М. Значение М задайте путём ввода с клавиатуры самостоятельно.
•Задание 3
Дана функция fi(x) =3x²+2cosx. Протабулируйте данную функцию на промежутке [-3;3] с шагом h=0.3. Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.

ААА

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

type oras = (chisinau, orhei, balti, tigina, tiraspol); zi = (l, ma, mi, j, v, s, d); consum = array [oras, zi] of real; var c : consum; r : oras; z : zi; i,k : integer; sum,min_r,max_r,min_z,max_z: real; n_max_r,n_min_r,n_max_z,n_min_z: integer; begin r: =chisinau; randomize; for i: =1 to 5 do begin z: =l; for k: =1 to 7 do begin c[r,z]: =random*100; z: =succ(z); end; r: =succ(r); end; r: =chisinau; for i: =1 to 5 do begin z: =l; case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; for k: =1 to 7 do begin write(c[r,z]: 6: 2); z: =succ(z); end; r: =succ(r); writeln; end; writeln('vsego za nedelu'); r: =chisinau; min_r: =99999; max_r: =0; n_min_r: =-1; n_max_r: =-1; for i: =1 to 5 do begin z: =l; case ord(r) of 0: write('chisinau sum='); 1: write('orhei sum='); 2: write('balti sum='); 3: write('tigina sum='); 4: write('tiraspol sum='); end; sum: =0; for k: =1 to 7 do begin sum: =sum+c[r,z]; z: =succ(z); end; if sum> max_r then begin max_r: =sum; n_max_r: =ord(r); end; if sum< min_r then begin min_r: =sum; n_min_r: =ord(r); end;

r: =succ(r);

writeln(sum: 8: 2); end; writeln('po dnyam nedeli'); z: =l; min_z: =99999; max_z: =0; n_min_z: =-1; n_max_z: =-1;

for k: =1 to 7 do begin r: =chisinau; case ord(z) of 0: write('l sum='); 1: write('ma sum='); 2: write('mi sum='); 3: write('j sum='); 4: write('v sum='); 5: write('s sum='); 6: write('d sum='); end; sum: =0; for i: =1 to 5 do begin sum: =sum+c[r,z]; r: =succ(r); end; if sum> max_z then begin max_z: =sum; n_max_z: =ord(z); end; if sum< min_z then begin min_z: =sum; n_min_z: =ord(z); end; z: =succ(z); writeln(sum: 8: 2); end; writeln('gorod c maximalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_max_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end; writeln('gorod c minimalnim potrebleniem'); r: =chisinau; for i: =1 to 5 do begin if ord(r)=n_min_r then case ord(r) of 0: writeln('chisinau'); 1: writeln('orhei'); 2: writeln('balti'); 3: writeln('tigina'); 4: writeln('tiraspol'); end; r: =succ(r); end;

writeln('den c maximalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_max_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end; writeln('den c minimalnim potrebleniem'); z: =l; for k: =1 to 7 do begin if ord(z)=n_min_z then case ord(z) of 0: writeln('l'); 1: writeln('ma'); 2: writeln('mi'); 3: writeln('j'); 4: writeln('v'); 5: writeln('s'); 6: writeln('d'); end; z: =succ(z); end;

readln;

end.

общение в интернете весьма разнообразно на данный момент.

электронная почта - самый базовый вид общения. без нее в интернете никуда, ведь она требуется для большенства регистраций на всевозможных сайтах и ресурсах. а так же является простым и удобным способом обмена информацией и файлами, а так же хранения онных. правда, чтоб написать кому-то, вам надо знать его электронный адрес

чаты - способ быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.

instant messengers (icq,jabber,mns, - гибрид электронной почты и чата. быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.

блоги, форумы, дневники - опять таки гибрид электронной почты и чата. тут уже сообщения не короткие, как раз надо изложить информацию как можно более удобно для чтенья, добавить картинки, видео, музыку. а увидеть ваши опусы может кто-угодно и даже имеет возможность оставить обстоятельный комментарий

социальные сети (vk,odnoklassniki, - это некий вариант im, который хочет с вас снять завесу анонимности. тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит

чередование четных не чётных