ПАСКАЛЬ РЕБЯТ СРОЧНЯК Домашняя работа 1)Решить задачу тремя способами: Вычислить сумму S=1+1/2+1/3+...+1/50. 2) Напечатать в виде таблицы значения функции у = (3х2-2)/ 4, для значений х, изменяющегося - 3 до 3 с шагом 0,2 3) ...

ПАСКАЛЬ РЕБЯТ СРОЧНЯК Домашняя работа 1)Решить задачу тремя способами: Вычислить сумму S=1+1/2+1/3+...+1/50. 2) Напечатать в виде таблицы значения функции у = (3х2-2)/ 4, для значений х, изменяющегося - 3 до 3 с шагом 0,2 3) Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры Задания: 1. Написать программы 2. Проверить их через программу PascalABC , сохранить и выслать учителю (обязательно!!!) 3. На следующем уроке сдать тетради с написанными программами
Гость
Ответ(ы) на вопрос:
Гость
1) Var A:integer; S:real; Begin {Первый способ} S:=0; For A:= 1 to 50 do     S:=S+1/A; WriteLn('S = ',S); {Второй способ} S:=0; A:=1; Repeat S:=S+1/A; A:=A+1; Until A>50; WriteLn('S = ',S); {Третий способ} S:=0; A:=1; While A<=50 do    Begin    S:=S+1/A;    A:=A+1;    End; WriteLn('S = ',S) End. Var x:real; Begin x:=-3; Repeat WriteLn('y(',x,') = ',((3*x*x-2)/4):0:3); x:=x+0.2 Until x>3.2; End. Var A:real; k,i:integer; Begin k:=0; WriteLn('Введите десять чисел'); For i:= 1 to 10 do     Begin     Read(A);     if A<0 then k:=k+1     End; WriteLn('k = ',k) End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы