3 задачи на языке Паскаль
Оценка 4.6

3 задачи на языке Паскаль

Оценка 4.6
Лабораторные работы
doc
информатика
10 кл—11 кл +1
01.03.2019
3 задачи на языке Паскаль
1. Заполнить массив x нулями. (Это означает, что нужно составить фрагмент программы, после выполнения которого все значения x[1]..x[n] равнялись бы нулю, независимо от начального значения переменной x.) 2. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. 3. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).
Информатика _ паскаль.doc
1. Заполнить массив x нулями. (Это означает, что нужно составить фрагмент   программы,   после   выполнения   которого   все   значения x[1]..x[n]   равнялись   бы   нулю,   независимо   от   начального   значения переменной x.) Program massiv; Uses crt; Var i:integer; X:array[1..100] of real; Begin Clrscr; Write(`Введите кол­во элементов массива:`);  readln(n); Writeln(`Введите элементы массива:`);   For i:=1 to n Readln(x[i]); Writeln(`Новый (замененный) массив:`); For i:=1 to n do begin X[i]:=0;  write(x[i], ‘  ’); Writeln; Readln; End. 2. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. Program arifmetic; Uses crt; Var a,b:integer; s:real; Begin Clrscr; Write(`Введите числа а и b:`);  readln(a,b); S:= (a+b)/2; Writeln(`Среднее арифметическое этих чисел равно `,s:7:3);   Readln; End. 3. Даны целые положительные числа A и B (A < B). Вывести все целые числа   от   A   до   B   включительно;   при   этом   каждое   число   должно выводиться   столько   раз,   каково   его   значение   (например,   число   3 выводится 3 раза). Program chisla; Uses crt; Var a,b, i:integer; Begin Clrscr; Write(`Введите числа а и b, причем а меньшее b:`);  readln(a,b); I:=2;x[1]:=a; While i>b do begin X[i]:=a+1;  For j:=1 to x[i] do write (x[i],’ ’); I:=i+1; writeln;  end; Readln; End.

3 задачи на языке Паскаль

3 задачи на языке Паскаль

3 задачи на языке Паскаль

3 задачи на языке Паскаль

3 задачи на языке Паскаль

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