1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; O := A + 1;-- I := A * A;
end Fruit;

1
2
3
4
5
6
7
8
9
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; --O := A + 1; I := A * A;
end Fruit;

1
2
3
4
5
6
7
8
9
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; O := A + 1; I := A * A;
end Fruit;

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO, Ada.Integer_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO;
 
PROCEDURE Prog5 IS
a, b, c :integer:=0;   
 
BEGIN
   LOOP
      A:=B;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io;
procedure Day is
   type Day is ( Mon, Tue, Thu, Fri, Sat, Sun );
   subtype Weekday is Day range Mon .. Fri;
   X, Y : Weekday;
begin
   X := Fri;     Ada.Text_Io.Put (Day'Image(X));
   Y := Day'Succ(X); Ada.Text_Io.Put (Day'Image(Y));
end Day;

1
2
3
4
5
6
7
8
9
with Ada.Text_Io;
procedure Day is
   type Day is ( Mon, Tue, Thu, Fri, Sat, Sun );
   subtype Weekday is Day range Mon .. Fri;
   X, Y : Day;
begin
   X := Fri;     Ada.Text_Io.Put (Day'Image(X));
   Y := Day'Succ(X); Ada.Text_Io.Put (Day'Image(Y));
end Day;

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO, Ada.Integer_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO;
 
PROCEDURE Prog3 IS
   a, b, c:integer:=0;
   Max :Integer;
  
BEGIN
  
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
int main()
int i,j,k;
for (int i=1; i<=5; i++){
for (int j=1; i<=3; i++){
for (int k=1; k<=4; i++)
cout<<"*";
cout<<endl;
 ...

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO, Ada.Integer_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO;
 
PROCEDURE Prog1 IS
a, b, c :integer:=0;   
BEGIN
  
   LOOP
      A:=B;
 ...

1
print "Kode Multus"

1
print "Kode Multus"

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
create table employees
(ID_NUMBER NUMBER Primary Key,
NAME VARCHAR2 (30),
DEPARTMENT_ID NUMBER,
SALARY NUMBER (7,2),
HIRE_DATE DATE); 
 
Insert into employees valyes
(1,'Rachel',7345,30000,'19-09-2001');
 ...

1
2
3
4
5
6
7
8
9
create table employees
(ID_NUMBER NUMBER Primary Key,
NAME VARCHAR2 (30),
DEPARTMENT_ID NUMBER,
SALARY NUMBER (7,2),
HIRE_DATE DATE); 
 
SELECT id_number, name, department_id, SUM(salary)
FROM employees
 ...

1
2
3
4
5
6
7
8
9
 
class Bicycle {
 
    int cadence = 0;
    int speed = 0;
    int gear = 1;
 
    void changeCadence(int newValue) {
         cadence = newValue;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
 
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
package body Random is
 
X_initial : FLOAT_ITEM := 0.0;
M         : FLOAT_ITEM := 1.0;
A         : FLOAT_ITEM := 7.0;
 ...

1
2
3
4
5
6
7
with Ada.Text_IO; 
--use Ada.Text_IO;
 
procedure hello is
begin
   Ada.Text_IO.Put_Line ("Hello world in Ada");
end Hello;

1
2
3
4
5
6
7
8
9
 
DateTime fechaNacimiento;
 
try
{
        fechaNacimiento = DateTime.Parse("29/04/1987");
        System.Console.Write("si!");
}
catch
 ...

1
2
3
4
5
6
7
8
9
#include<graphics.h>
#include<dos.h>
#include<stdlib.h>
#include<iostream.h>
#include<conio.h>
#include<string.h>
#include<process.h>
#include<fstream.h>
#include<dir.h>
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
import java.io.*;
public class user
{
public static void main(String args[])
{
System.out.println("username");
System.out.println("password");
}
}