Как их можно совместить, мне нужно создать тестовую программу но даже не получается для начала вывести варинты ответа с вопросами в корректной форме,получается выводить только 1й вопрос с ответами 4 раза и 5й вопрос один раз,всего у мен их 5, тобишь у меня вот как
uses crt;
type
test=record
vopros:string[100];
otvet1:string[100];
otvet2:string[100];
otvet3:string[100];
otvet_pr:string[100];
end;
var
Vopros:array [1..5] of test;
i:1..5;
A,B:array [1..5] of integer;
j:1..5;
S:integer;
begin
clrscr;
writeln('TECT "CocTaB PEVM" ');
{read(vopros[i].vopros); }
for i:=1 to 5 do
with vopros[i] do
begin
vopros:='K chemu podkluchautsa vse ustroistva vnutri PEVM?: ';
otvet1:='Diskovod';
otvet2:='Processor';
otvet3:='Vinchester';
otvet_pr:='Materinskaja plata';
end;
with vopros[i] do
begin
vopros:='chastota processorov izmerajetsa v: ';
otvet1:='Megabaiti';
otvet2:='Pikseli';
otvet3:='dpi';
otvet_pr:='Gerci';
end;
with vopros[i] do
begin
vopros:='Kuleri vipolnajut funkciuy: ';
otvet1:='Dekora i ukrasheniya';
otvet2:='Opredleniya stepeni "zagruzhennosti" PEVM';
otvet3:='Zazhiti vazhnih chastey PEVM ot ruk lubopitnih polzovateley';
otvet_pr:='Ventilacii i ohlazhdeniya';
end;
with vopros[i] do
begin
vopros:='Praotec sovremennoy arhitecturi computerov: ';
otvet1:='William Shockley';
otvet2:='Alan Turing';
otvet3:='Bill Gates';
otvet_pr:='John fon Neimann';
end;
with vopros[i] do
begin
vopros:='Kakaya kompania sozdala perviy 8-razryadniy chip: ';
otvet1:='Texas Instruments';
otvet2:='Intel';
otvet3:='Motorola';
otvet_pr:='IBM';
end;
for i:=1 to 5 do
begin
writeln('vopros N',i,' - ',vopros[i].vopros);
writeln('1.',vopros[i].otvet1);
writeln('2.',vopros[i].otvet2);
writeln('3.',vopros[i].otvet3);
writeln('4.',vopros[i].otvet_pr);
write('Viberi variant otveta:');
read(A[i]);
end;
writeln('Vashi otveti:',A[i]);
readkey;
end.
Примечание:
там еще правда мусор присутствует
Примечание:
пронумеровать то каждый я могу но потом и выводить надо будет каждый по отдельности, нам же требуется это сделать с помощью for, да и всё таки менее громоздко получится потому что вопросов вообще 15 а можно и более
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.