vertrigo

#include <stdio.h>
#include <math.h>

void main()
{
int x,y,k=0;
FILE *f,*g;
f=fopen("lab5.dat","w");
printf("Введите X Y (признак окончания ввода X=0 Y=0):\n");
do {

vertrigo

Program lab8a;
Uses crt;
Var f: file of integer; x,s,k: integer; sr:real; c:char;
Begin
clrscr;assign (f,'lab12.dat');rewrite (f);
writeln ('Введите целые числа. Признак конца ввода - 0');
repeat
read (x) ;x := abs(x);write(f,x)
until x = 0;
reset(f);

vertrigo

Program lab9;
uses crt,graph,obj_un;
var r:rect;i,st:integer;

procedure moveright(dist:integer; time:integer);
var i:integer;
begin
for i:=1 to dist do begin
r.move(100+i*st,240,30);
r.show; delay(time); r.hide;

vertrigo

Program ex5;
uses crt;
const n = 4;
type matr = array[1..n,1..n] of real;
var w:matr;

procedure obr(var a:matr; n:integer);
var i,j:integer;
begin
for i:=1 to n do

vertrigo

#include <stdio.h>
#include <math.h>
main()
{
float x,y,z,b;
printf("Введите значение x:\n");
scanf("%f",&x);
printf("Введите значение y:\n");
scanf("%f",&y);
z=(2*x+pow(abs(x+y),1.0/3))/log(x);

vertrigo

Program ex5;
uses crt;
const n = 5;
type matr = array[1..n,1..n] of integer;
     vect = array[1..n] of integer;
var a:matr; b:vect; i,j:integer;

Procedure inputm(var m:matr; s:integer);
var i,j:integer;
begin

vertrigo

Program rgr5;
uses crt;
const n = 4;
type matr = array[1..n,1..n] of real;
var w:matr;

procedure obr(var a:matr; n:integer);
var i,j:integer;
begin
for i:=1 to n do

vertrigo

unit obj_un;
interface
uses graph;
type gr=object
     gd,gm:integer;
     procedure graphinit;
     procedure graphclose;
     end;
type obj=object(gr)
     a,b,x,y,s,tx,ty:integer;

vertrigo

Program lab9;
uses graph,obj_un,crt;
var i:integer; ob:obj;
{main}
Begin
   ob.graphinit;
   ob.setcoord(300,230,30);
   for i:=1 to 5 do
   begin
      ob.circleshow;

vertrigo

#include <stdio.h>
#include <conio.h>
#include <math.h>
void main(void)
{
int x,y,k;
FILE*f,*g;
f=fopen("lab5.dat","w");
printf("Введите X Y (признак окончания ввода X=0 Y=0):\n");
do {