Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Да се състави програма, която намира всички целочислени тройки (x,y,z), които са решения на уравнението аx + by + cz = 0 и променливите x, y и z се намират в интервала [-10; 10]. Коефициентите a, b и c са цели числа и се въвеждат от клавиатурата.


  • writeln( x:3, y:3, z:3)
  • write('Enter a=');
  • var x, y, z, a, b, c : integer;
  • for y := -10 to 10 do
  • end.
  • for x := -10 to 10 do
  • readln(c);
  • for z:= - 10 to 10 do
  • readln(b);
  • write('Enter c=');
  • write('Enter b=');
  • begin
  • readln(a);
  • if a*x+b*y+c*z=0 then