| Автор | Паскаль. Проверьте програму-тест. |
|---|
Вот составил я программу, проверьте пунктуацию и вообще само написание программы. Заранее благодарен.
Program gg;
uses crt;
label 1,2;
var x:word; v1,v2,v3,v4,v5,v6,i:char;
begin
clrscr;
writeln(' YA TEST!!!!!!!! ');
writeln;
writeln('Hotite nachat test klaznite : Y');
writeln('Hotite pokasatsa ymnum, zakoyte test, klaznyv : N');
readln(i);
case i of
'Y':goto 1;
'N':goto 2;
else writeln('error neta bykva ')
end;
1: clrscr;
writeln('Correct answers: ',x') ;
writeln;
writeln(' Ot kakogo zhevotnogo proishodit nasvanie Kanarskie ostrova ');
writeln;
writeln('a) (' Ot Doga ');
writeln('b) (' Ot kanareyki ');
writeln;
writeln('Write a or b?');
readln(v2);
case v2 of
'a':x:=x+1;
'b':x:=x+0
else writeln('Error: neta bykva ' )
end;
clrscr;
writeln('Correct answers: ',x ');
writeln;
writeln(' Kak zvali korola Georga 6? ');
writeln;
writeln('a) (' Georg ');
writeln('b) (' Albert ');
writeln;
writeln('Write a or b?');
readln(v3);
case v3 of
'a':x:=x+1;
'b':x:=x+0;
else writeln('Error: neta bykva ')
end;
clrscr;
writeln('Correct answers: ',x ');
writeln;
writeln(' V kakom mesiaze otmechaetsya Oktyaberskaya revolyuzuya ');
writeln;
writeln('a) (' Oktyabr ');
writeln('b) (' Noyabr ');
writeln;
writeln('Write a or b?');
readln(v4);
case v4 of
'a':x:=x+0;
'b':x:=x+1;
else writeln('Error: neta bykva ')
end;
clrscr;
writeln('Correct answers: ',x ');
writeln;
writeln('v kakoy strane izobreli panamu?');
writeln;
writeln('a) (' Panama ');
writeln('b) (' Ekvador ');
writeln;
writeln('Write a or b?');
readln(v5);
case v5 of
'a':x:=x+0;
'b':x:=x+1;
else writeln('Error: neta bykva ')
end;
clrscr;
writeln('Correct answers: ',x');
writeln;
writeln('Skolko let dlilas 100-letnaya voyna ');
writeln;
writeln('a) ('100 let );
writeln('b)( '116 let ');
writeln;
writeln('Write a or b?');
readln(v6);
case v6 of
'a':x:=x+0;
'b':x:=x+1;
else writeln('Error: neta bykva ')
end;
clrscr;
writeln(' Vasha ozenka : ',x ');
writeln;
case x of
5:writeln('Your mark is: 10');
4:writeln('Your mark is: 8');
3:writeln('Your mark is: 6');
2:writeln('Your mark is: 4');
1:writeln('Your mark is: 2');
else writeln('Noob lol trololo, your are stupid ')
end;
2:end.
Да программа длинная. |
| Я думаю можно поставить 5. |
| Я думаю можно поставить 2 из-за goto |
| Noob lol trololo, your are stupid |
для Triode:
почему? |
для Mc_Artemon:
потому что если ты не можешь писать без без этого оператора, то ты плохо владеешь языком
хотя в очень исключительных случаях он полезен, ну там из кучи вложенных циклов выйти |
для Triode:
А ну как изложи без этого оператора, для паскаля. жду. |
Ot kakogo zhevotnogo
Если язык текста албанский, то за грамматику 5.
Иначе в тесте куча ошибок + используется транслит.
P.S. Что проверить-то, компилятор ошибок не выдает, тест работает - значит прога работает) |
для red-ant:
Правильно так writeln('Correct answers: ',x') ; или так writeln('Correct answers: ',x) ; |
| writeln('Correct answers: ',x) ; |
для red-ant:
Сенкс |
writeln(' YA TEST!!!!!!!! ');
writeln;
writeln('Hotite nachat test klaznite : Y');
writeln('Hotite pokasatsa ymnum, zakoyte test, klaznyv : N');
readln(i);
case i of
'Y':goto 1;
'N':goto 2;
else writeln('error neta bykva ')
end;
ппц...ты не в курсе про оператор if?
надо так:
writeln(' YA TEST!!!!!!!! ');
writeln('Hotite nachat test klaznite : Y');
writeln('Hotite pokasatsa ymnum, zakoyte test, klaznyv : N');
readln(i);
if (i='Y') then и дальше прога пошла |
Проверять программу на 100 строк без форматирования и с "goto" - это интересно:)
Скачай разумную среду, она сама проверит) |
| Visual Basic на много легче. |
Проверять программу на 100 строк без форматирования и с "goto" - это интересно:)
Когда речь идет про несколько тысяч строчек ассемблерного кода, тогда это интересно. А тут все блоки теста суть есть копи-паст, проверять особо нечего. |
для Triode:
В курсе, а что?
для Страус:
не могу... Что вы пристали к этому гото... |
для red-ant:
А как то по другому этот тест в паскале составить можно? |
| фу, тут такое безобидное goto а народец так сагрился..... |
| Вначале в некоторых строках точку с запятой не проставил)) |
для Mc_Artemon:
Что не можешь? Среду скачать? Это печально.
А к goto пристал отнюдь не я. Сам до ужаса неприличный кодер, но все-таки не настолько. Просто читать код с goto крайне сложно, если ты не компьютер. |
