iceandguard

#!/usr/bin/env perl
# $Revision$
# $Source$
# $Id$
# $HeadURL$
# $Date$

use utf8;
use Carp;
use 5.010;

iceandguard

REAL X, Y, Z
DATA X /1.2345E1/
DATA Y /.12345E2/
DATA Z /.012345E3/
DATA A /-1.2345E1/
DATA B /-0.12345E2/
PRINT *, X, Y, Z
PRINT *, A, B
END

iceandguard

#include <stdio.h>
#define MAX_STDT 5
#define MAX_OBJT 5
/* 3(KOR ENG MATH) -> 5(KOR ENG MATH TOT AVG) */

int main() {
  int i, j, tot, r, score[MAX_STDT][MAX_OBJT], *tmp = 0;
  float avg;
  printf("Enter the score...\n");