«Линейные алгоритмы»
Запишите оператор вывода.
Запишите оператор присваивания.
Запишите оператор ввода
Даны команды:
а:=9;
у:=SQRT(а);
Write (‘а равно’ , а);
Какой ответ появится в результате выполнения программы?
а) на экране появится строка – а равно 81
б) на экране выведется строка – а равно 9
в) появится строка на экране: а равно а
г) на экране появится
а=9
у:=SQRT (9);
а равно а
Даны команды:
С:=SQR (С);
С:=5;
Write (‘ответ:’ , С);
Какой ответ появится в результате выполнения программы?
а) на экране появится строка – ответ: 5
б) на экране выведется строка – ответ: 25
в) появится строка на экране: ответ: С
г) С=С2
С=5
ответ: 5
Когда ставится точка с запятой?
Исправьте ошибки в тексте программы. Перепишите ее правильно и напишите, что вычисляет эта программа?
Program Зима;
var: y,s,r: integr;
begin
real (y,s);
r:= y*s
write ( ‘r’ =; r);
end.
8.Запишите на языке Паскаль:
а) 35 – х2 в) |х – 5| +10 4 а – 2ав3
б) √(2+3х^2 )/(8(х^2-4х) г) Sin 7X – Cos2Y
Вот на быструю руку только тела программ
1.
C++Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
double x, rezult;
cout << "Vvedite x ="
cin >> x;
if (x == 0)
{
cout << "Error" << end;
return;
}
else
{
rezult = fabs( (x * x * x) - (x * x) ) - ((7 * x) / (x * x *x)) - 15 * x;
}
cout << "Rezultat =" << rezult << endl;
2.
C++Выделить код
1
2
3
4
5
6
7
8
double x, rezult;
cout << "Vvedite x ="
cin >> x;
rezult = 1 + x / 3 + fabs(x) + (x * x * x) + 4 / 2;
cout << "Rezultat =" << rezult << endl;
Program Randomizer;
Var a,b,i : Integer;
Const n = 5;//Кол-во попыток
Begin
WriteLn(' Вас приветствует "Randomizer!™"');
ReadLn;
WriteLn(' Компьютер загадал число от 1 до 100, ваша задача отгадать его.');
WriteLn(' Приступим!(Нажмите Enter)');
ReadLn;
WriteLn(' Введите число');
i:= 1;
a:=random(100);
While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.
Begin
//If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.
ReadLn(b);
If b = a then WriteLn('Вы угадали!') Else
If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else WriteLn(' Попытки закончились! Перезапустите программу.');
inc (i);
End;
End.