Kaynağa Gözat

Minor fooling around...

master
ebeveyn
işleme
250310a0c9
2 değiştirilmiş dosya ile 19 ekleme ve 20 silme
  1. +1
    -1
      xiranda.c
  2. +18
    -19
      тест.срб

+ 1
- 1
xiranda.c Dosyayı Görüntüle

@@ -145,7 +145,7 @@ int main (void) {
} else kill ("Expected marker, number or string: ", offset);
} else kill ("Expected equal symbol: ", offset);
} else kill ("Expected type: ", offset);
} else kill ("Expected colon symbol: ", offset);
} else kill ("Expected colon, open bracket or equal symbol: ", offset);
}
}



+ 18
- 19
тест.срб Dosyayı Görüntüle

@@ -1,32 +1,31 @@
тип број = бајт (4)
тип слово = бајт (1)
тип број је 4 бајт;
тип слово је 1 бајт;

тип логика (
тип логика је (
лаж,
истина)

тип системски_позив (
линукс_системски_позив_читај = 0,
линукс_системски_позив_пиши = 1,
линукс_системски_позив_отвори = 2,
линукс_системски_позив_затвори = 3,
линукс_системски_позив_изађи = 60)
тип системски_позив је (
системски_позив_читај = 0,
системски_позив_пиши = 1,
системски_позив_отвори = 2,
системски_позив_затвори = 3,
системски_позив_изађи = 60)

тип фајл_описивач (
класични_улаз,
класични_излаз)
тип описивач је (
стандардни_улаз,
стандардни_излаз)

процедура дужина_текста (текст) врати број је
улаз програм је главна

процедура дужина_текста (текст је низ слово) је
дужина је број = 0
док текст (дужина) није 0
ради
док текст (дужина) није 0 онда
дужина ++
крај
врати (дужина)
крај
назад

процедура штампај (текст) је
системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужина_текста (текст))
системски_код (системски_позив_пиши, класични_излаз, текст, дужина_текста (текст).дужина)
крај

здраво () штампај ("Здраво!")


Yükleniyor…
İptal
Kaydet