Итоговая работ С творческой составить тест из 4 во по разделам: 1. Объекты, в том числе компьютерные 2. Модели 3. Алгоритмы 4. Исполнители На каждый во придумать 3 варианта ответов, один из которых верный.
где ошибка Program myprog; const rad=3.14/180; var a,y,z,x,cos,sin:real; //переменные x,cos,sin никак не определены, следовательно следующее выражение не будет посчитано (=0). кроме того cos и sin это встроенные функции Паскаля. Не стоит использовать их как имена переменных begin a:=(2*cos*(x-rad*30))/(1/3+((sin*2)*(y+2))); writeln('z='); readln(z); y:=(z*z/5+(z*z)/7); writeln(' y = ',y); writeln('введите значение x : ' ); readln(x); // Вы ввели значение х в конце программы. Оно нигде в расчетах уже не сможет участвовать WriteLn(' ответ:',a); readln(a); End.
a1,a2,a3: string;
begin
write ('Введите 1-е слово: ');
readln (a1);
write ('Введите 2-е слово: ');
readln (a2);
write ('Введите 3-е слово: ');
readln (a3);
if (length(a1)<>length(a2)) and (length(a1)<>length(a3))
then
if length(a1)<length(a2)
then
if length(a1)<length(a3)
then writeln('Самое короткое слово: ',a1)
else writeln('Самое короткое слово: ',a3)
else
if length(a2)<length(a3)
then writeln('Самое короткое слово: ',a2)
else writeln('Самое короткое слово: ',a3)
else writeln('Все слова одинаковой длины');
end.
Введите 1-е слово: волк
Введите 2-е слово: олень
Введите 3-е слово: косуля
Самое короткое слово: волк
Program myprog;
const rad=3.14/180;
var a,y,z,x,cos,sin:real;
//переменные x,cos,sin никак не определены, следовательно следующее выражение не будет посчитано (=0). кроме того cos и sin это встроенные функции Паскаля. Не стоит использовать их как имена переменных
begin a:=(2*cos*(x-rad*30))/(1/3+((sin*2)*(y+2)));
writeln('z=');
readln(z);
y:=(z*z/5+(z*z)/7);
writeln(' y = ',y);
writeln('введите значение x : ' );
readln(x);
// Вы ввели значение х в конце программы. Оно нигде в расчетах уже не сможет участвовать
WriteLn(' ответ:',a);
readln(a);
End.