Где нарисовать блок-схему онлайн?

Комментарии отсортированы по убыванию даты, нажмите сюда, чтобы отсортировать их по возрастанию даты

Автор: Sky (запаролен) IP: определён

begin flag:=true; for i:=1 to 10 do if ves.Cells[1,i]='' then flag:=false; if flag then begin assignfile(f,'tolstyaki.sav'); reset(f); for i:=1 to 10 do begin ves.Row:=i; edit1.Text:=ves.Cells[1,i]; read(f,x); y:=strtofloat(ves.Cells[1,i]); if y<x then showmessage(''); if y>x then showmessage('!'); if x=y then sleep(400); application.ProcessMessages; ves.Cells[2,i]:=floattostr(x); end; closefile(f); end else showmessage(''); end;

25.06.2019, 22:42

Автор: диана IP: определён

program z1; var i,j,s:integer; A,B:array[1..5,1..5] of integer; BEGIN for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=random(9); for i:=1 to 5 do begin for j:=1 to 5 do write(a[ i , j ]:5); writeln; end; s:=0; for i:=1 to 5 do for j:=1 to 5 do if i=j then s:=s+A[i,j]; writeln(s); END.

25.06.2019, 19:46

Автор: Николай IP: определён

записать алгоритм определения является ли квадратная матрица введённая с клавиатуры магическим квадратом

11.06.2019, 04:54

Автор: Степан IP: определён

Program fv6; const n=5; var a: array[1..n,1..n] of real; j,i:integer; begin for i:=1 to n do Begin for j:=1 to n do begin If i < j then a[i,j]:= Sin(i+j) else begin If i = j then a[i,j]:=1 else a[i,j]:=arctan((i+j)/(2*i+3*j)); end; end; end; for i:=1 to n do Begin for j:=1 to n do write(' ',a[i,j]); writeln; end; End.

21.05.2019, 14:29

Автор: марс IP: определён

блок схема

08.05.2019, 12:25

Автор: Мария IP: определён

Найти произведение всех цифр заданного четырехзначного числа.

23.03.2019, 00:46

Автор: WilliamFred IP: определён

const Sz = 100; var a: array [1..Sz] of integer; N: integer; i: integer; begin write('kolichestvo: '); readln(N); write('elementi: '); for i:=1 to N do read(a[i]); write('Vivod: '); for i:=1 to N do write(a[i],' '); end.

17.01.2019, 23:18

Автор: цууй IP: определён

#include <stdio.h> void main() { double x, y; printf("This is programm which checking if point is inside the area of circle or not\n"); printf("Enter dot coordinates\n"); printf("Enter X:"); scanf_s("%lf", &x); printf("Enter Y:"); scanf_s("%lf", &y); printf("point (%lf,%lf)\n", x, y); if (x*x+y*y <=1.0) { if (x*x + y*y >= 0.25) { printf("Way 1: The point is in area\n"); } else printf("Way 1: The point is not in area\n"); } else printf("Way 1: The point is not in area \n"); getch(); }

20.10.2018, 03:39

Автор: Виолетта IP: определён

#include "stdafx.h" #include <iostream> #define _USE_MATH_DEFINES #include <math.h> #include <conio.h> using namespace std; int main() { double X, R0[20]; double F, Xn = (-0.20), Xk = 2.85, U1 = (-1.20), U2 = 0.40, H = 0.3, A = 0.023, S3 = 0, P2 = 1, P3 = 1; int K0 = 0, n = 0; X = Xn; do { F = exp(A*X)*sin(X / A) - X * cos(X); K0 = K0 + 1; R0[n] = F; n++; if (F > U1) S3 = S3 + F; if (F < U2) P2 = P2 * F; if (F > U1) P3 = P3 * F; cout << "X=" << X << "F=" << F << endl; X = X + H; } while (X <= Xk); cout << "S3=" << S3 << endl; cout << "K0=" << K0 << endl; cout << "P2=" << P2 << endl; cout << "P3=" << P3 << endl; for (int i = 0; i < n; i++) cout << "R0[" << i << "]=" << R0[i] << endl; _getch(); return 0; }

20.03.2018, 23:31

Автор: Валентин IP: определён

var r,p:real; begin write('Введите радиус описанной окружности R='); readln(r); p:=3*r*sqrt(3); write('Периметр вписанного треугольника=',p:0:2) end.

27.02.2018, 01:54