Recent programs

program main 
    external func
    real:: a, b, e, func
    read*, a, b, e
    print'(2x, a, 8x, a, 10x, a, 10x, a)', "m", "x", "y"
    call proportional_division_method(a, b, e, func, x)
    print'(a, f6.3)', "Корень уравнения", x
end program main
subroutine proportional_division_method(a, b, e, func, x)
    real:: a, b, func, e, x_buf, x
    if (a > b) then 

#include <bits/stdc++.h>
using namespace std;
int n,m;
int a[101][101];
int s[101][101];
int p = -1000000001;
int x, xt, y, yt;

int main()
{
    freopen ("inp.txt", "r", stdin);

create table student(sid,sname,city,gender);
insert into student values(1,'anand','hyd','male');
insert into student values(2,'bnand','nyd','female');
insert into student values(3,'fnand','ghyd','male');
insert into student values(4,'afgand','hasd','female');
insert into student values(5,'ghfand','hyas','male');
select * from student;
select sid from student;

create table student(sid,sname,city,gender);
insert into student values(1,'fnand','hyd','male');
insert into student values(2,'bnand','nyd','female');
insert into student values(3,'anand','hyd','male');
insert into student values(4,'afgand','hasd','female');
insert into student values(5,'ghfand','hyas','male');
select * from student;
select sid,sname,from student;
select sname from student where gender='male';
select city from student where city like 'h%';
select sname from student order by cit

create table student(sid,sname,city,gender);
insert into student values(1,'fnand','hyd','male');
insert into student values(2,'bnand','nyd','female');
insert into student values(3,'anand','hyd','male');
insert into student values(4,'afgand','hasd','female');
insert into student values(5,'ghfand','hyas','male');
select * from student;
select sid,sname,from student;
select sname from student where gender='male';
select city from student where city like 'h%';
select sname from student order by cit

section .data
    msg db "Hello world!", 0ah

section .text
    global _start

_start:
    mov rax, 1
    mov rdi, 1
    mov rsi, msg
    mov rdx, 13

#include <iostream>

int main() {
    std::cout << "Hello world!" << std::endl;
    return 0;
}

gg.alert
menu=gg.choice({'diamonds hack','headshots hackhack','speed hack',' teleport hack'})

if (WebScript ~= nil) then
	exit = function() 
		offall(1)
		runWebScriptmy("https://www.mycompiler.io/view/CYbpfRw") 
	end
else 
	exit = function()
		offall(1)
		os.exit() 
	end 
end

CREATE TABLE Users(
Id INTEGER PRIMARY KEY NOT NULL,
Pass text not NULL,
Role text default 'User'
);
CREATE table Admin(
Name text PRIMARY KEY not null,
Role text default 'Admin',
Work text unique
);

print 'free fire'curl -R -O http://www.lua.org/ftp/lua-5.4.2.tar.gz
tar zxf lua-5.4.2.tar.gz
cd lua-5.4.2
make all test/var/task/bin/lua: main.lua:1: syntax error near '-'

[Program exited with exit codecocodecodecococodecocodecodecocodecocodecodecococodecocodecodecodecocodecodecococodecocodecodecocodecocodecodecococodecocodecocodecocodecodecococodecocodecodecocodecocodecodecococodecocodecodecodecocodecodecococodecocodecodecocodecocodecode
    

create table employee 
(id number(2),ename varchar2(10),dob date, address varchar2(25),salary number (10));

desc employee; 

create table employee 
(id number(2),ename varchar2(10),dob date, address varchar2(25),salary number (10));

#creating a dataframe
employee<-data.frame(empid=c(12,15,11,13,18),empname=c("raj","ravi","prem","kishore","ajay"),salary=c(20,30,40,50,60),start_date=as.Date(c("2020-12-26","2020-12-2","2020-11-26","2020-10-3","2020-12-21")),stringsAsFactors=FALSE)
employee  
#extracting data from dataframe
employee[,1:2]
employee[c(2,5),]
employee[,c(1,3)]
employee[c(3,5),c(2,4)]
employee[2,4]
#summary of dataframe
summary(employee)

-- worker table
Create table worker(
Worker_Id int ,
FirstName varchar(20) not null,
 Last_name varchar(20) ,
Salary int not null,
Joining_Date date not null,
Department varchar(10) not null);

-- Bonus table
Create table Bonus(Worker_Ref_Id int,Bonus_Date date not null,Bonus_Amount int not null);

-- create a table
CREATE TABLE Doctors (
  name TEXT NOT NULL,
  address TEXT NOT NULL,
  qualification TEXT NOT NULL,
  specialization TEXT NOT NULL
  
);
-- insert some values
INSERT INTO students VALUES ('Nishant', 'Mumbai', 'MBBS', 'Psycology');
INSERT INTO students VALUES ('Aman', 'Delhi', 'MBBS', 'Surgery');

u<-c(0,4,1,1,2)
f<-factor(u,levels=0:3)
f
levels(f)<-c("none","more","medium","large")
f
as.numeric(f)
listt<-list("red","green",c(2,5,3),67+7i,654L,TRUE)
listt
# Create a list containing a vector, a matrix and a list.

list_data <- list(c("Jan","Feb","Mar"), matrix(c(3,9,5,1,-2,8), nrow = 2),

v=c("Spring","Autum","Winter","Summer","Spring","Autum")
print(factor(v))
# levels is categorize
nlevels(factor(v))

# Arrays

array(c(1,2,3),dim=c(3,3,3)) # here in dim(dimension), (3,3,3) 1st - row,2nd-column,3rd- 3 matrix
array(c(1,2,3),dim=c(3,2,3))
array(c(1,2,3),dim=c(3,3))  array(c(1,2,3),dim=c(3,2)) 

#include <stdio.h>
void main() 
{
    int a,b;
    printf("\n Enter the two numbers:");
    scanf("%d%d",&a,&b);
    printf("%d\t%d",a,b);
    if(a>b)
    {
        printf("\n a is greater than b");
    }

assign(r,c(3,7,8,9))
Error in assign(r, c(3, 7, 8, 9)) : invalid first argument
assign("r",c(3,7,8,9))
r
[1] 3 7 8 9
a
[1] 6
v1<-c(6,8,9,10,2,5,46,12)
v1
[1]  6  8  9 10  2  5 46 12
max(v1)