Skip to content

Instantly share code, notes, and snippets.

View Evshved's full-sized avatar
🌬️
Yes Yes No. I grabbed the wind.

Eugene Shved Evshved

🌬️
Yes Yes No. I grabbed the wind.
19 followers · 11 following
View GitHub Profile
@Evshved
Evshved / adding_bitmaps(Pascal)
Last active December 17, 2015 07:09
mas(A)+mas(B)=mas(C). n(A)+n(B)=(n+1 or n)C, N row belongs whole numbers.
program adding_bitmaps;
uses crt;
var A,B:array [1..10] of byte;
C:array[1..11] of byte;
count_mas,count_dig,tip,time_count:byte;
Begin
read(tip);
for count_mas:=1 to tip do
begin
@Evshved
Evshved / pseudo code of adding_bitmaps
Last active December 17, 2015 07:09
adding_bitmaps
uses crt;
var A,B,C=array
count_mas,count_dig,tip,time_count=variables
read(tip);
// randomized elements input massives
for count_mas:=1 to tip do
A[count_mas]:=random(2);
@Evshved
Evshved / Insertion Sort(Pascal) #1
Last active December 17, 2015 07:09
Sort n(2), more better than #2
var A:array [1..10] of integer;
key,u,i:integer;
begin
for i:=1 to 10 do
A[i]:=random(10);
for i:=2 to 10 do
begin
key:=A[i];
u:=i-1;
while (u>0) and (A[u]>key) do
@Evshved
Evshved / Insertion Sort(Pascla) #2
Created October 5, 2013 16:41
Еще одна сортировка вставкой N(2) По возрастанию.
var A:array[1..10] of integer;
cou1,cou2,k,varib1,max,ind1:integer;
begin
read(k);
for cou1:=1 to k do
begin
A[cou1]:=random(10)+10;
end;
for cou1:=k downto 1 do
begin
@Evshved
Evshved / Sort massive
Created October 5, 2013 17:45
Sort two-dimensional massive(по возрастанию)
uses crt;
var A:array[1..10,1..10] of integer; C:array[1..10] of integer;
cou_p11,cou1,cou2,cou_p22,k1,k2,varib1,ind1,max:integer;
procedure SorStr (var cou_p1,cou_p2,ind_p1,varib_p1,max_p:integer; B:array [1..10] of integer):integer;
Begin
for cou_p1:=1 to k2 do
begin
B[cou_p1]:= A[cou1,cou_p1];
end;
for cou_p1:=k1 downto 1 do
@Evshved
Evshved / tables
Last active December 25, 2015 20:19
html tables
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
TD {
vertical-align: top; /* Выравнивание по верхнему краю ячейки */
}
#col1 {
width: 40%; /* Ширина первой колонки */
@Evshved
Evshved / Евгеновы фразы
Last active December 29, 2015 05:59
"Богосподен"
"Кардиратор"
"Федорарко"
"Google jump"
"Автострада- это тоже самое, что автодром"
"Наша игра соберёт миллионы! Создатель крупнейшей компании ОАО "Кисель"
@Evshved
Evshved / VkAppCookies
Last active December 29, 2015 06:39
import vk.APIConnection;
import flashx.textLayout.formats.Float;
import flash.events.Event;
stop();
var flashVars:Object = stage.loaderInfo.parameters as Object;
var VK:APIConnection = new APIConnection(flashVars);
cookie.addEventListener(MouseEvent.CLICK, qwe);
Building1.addEventListener(MouseEvent.CLICK, NewBuild1);
@Evshved
Evshved / практ
Last active August 29, 2015 13:55
uses graphAbc;
var x1,y1,k,g,per:integer;
x0,y0,x,y:real;
Begin
setwindowsize(800,600);
line(0,300,800,300);
line(400,0,400,600);
setpencolor(clred);
while g<>800 do
begin
@Evshved
Evshved / LINE COMPUTER PROCESS
Last active August 29, 2015 14:06
Lab#1
//---------------------------------------------------------------------------
Application
//---------------------------------------------------------------------------
//The standard C libraries
#include <vcl.h>
#pragma hdrstop
#include "Paradigm.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)