flag := false;
i := 0;
while (i <= 10) and (flag = false) do
begin
i := i + 1;
if (q = 'Gagarin') then {затем то же с w,e,r}
flag := true;
end;
Помогите написать программу(Pascal)
пожалуйсто помогите написать программу по заданию:
В школе 4 восьмых класса. Даны списки имён и фамилий( 2 массива на каждый класс).
Найти классы, в которых есть однофамильцы.
Определить классы, где есть тёски.
Определить, в каких классах есть совпадения и по имени и по фамилии.
Определить, есть ли в классах однофамилец первого космонавта (Гагарина).
обязательно нужно использовать while'ы и флаг
я сам в этом полный чайник :)
В школе 4 восьмых класса. Даны списки имён и фамилий( 2 массива на каждый класс).
Найти классы, в которых есть однофамильцы.
Определить классы, где есть тёски.
Определить, в каких классах есть совпадения и по имени и по фамилии.
Определить, есть ли в классах однофамилец первого космонавта (Гагарина).
обязательно нужно использовать while'ы и флаг
я сам в этом полный чайник :)
Цитата: Dancok
обязательно нужно использовать while'ы и флаг
я сам в этом полный чайник
я сам в этом полный чайник
флаг?! триколор? махать им при написании или выполнении?
чайник тоже использовать?
По правилам раздела предоставьте уже написанный вами код.
флаг конечно не триколор)
а который типа boolean
вот уже написаный мною код:
program a;
uses crt;
var i,j,n,m,b,v:integer;cosm:boolean;q,w,e,r,q1,w1,e1,r1:array(1..10) of string;
begin
writlen('vvedi kol-vo chelovek v 1 klasse');
readln(n)
wtiteln('vvedi kol-vo chelovek vo 2 klasse');
readln(m);
writeln('vvedi kol-vo chelovek v 3 classe');
readln(b);
writeln('vvedi kol-vo chelovek v 4 classe');
readln(v);
for i:= 1 to n do
begin
writeln('vvedi ima',i,'cheloveka v 1 classe');
readln(q);
end;
for i:= 1 to m do
begin
writeln('vvedi ima',i,'cheloveka v 2 classe');
readln(w);
end;
for i:= 1 to b do
begin
writeln('vvedi ima ',i,'cheloveka v 3 classe');
readln(e);
end;
for i:= 1 to v do
begin
writeln('vvedi ima',i,'cheloveka v 4 classe');
readln(r);
end;
for i:= 1 to n do
begin
writeln('vvedi fam ',i,'cheloveka v 1 classe');
readln(q1);
end;
for i:= 1 to m do
begin
writeln('vvedi fam ',i,'cheloveka v 2 classe');
readln(w1);
end;
for i:= 1 to b do
begin
writeln('vvedi fam ',i,'cheloveka v 3 classe');
readln(e1);
end;
for i:= 1 to v do
begin
writeln('vvedi fam ',i,'cheloveka v 4 classe');
readln(r1);
end;
а который типа boolean
вот уже написаный мною код:
program a;
uses crt;
var i,j,n,m,b,v:integer;cosm:boolean;q,w,e,r,q1,w1,e1,r1:array(1..10) of string;
begin
writlen('vvedi kol-vo chelovek v 1 klasse');
readln(n)
wtiteln('vvedi kol-vo chelovek vo 2 klasse');
readln(m);
writeln('vvedi kol-vo chelovek v 3 classe');
readln(b);
writeln('vvedi kol-vo chelovek v 4 classe');
readln(v);
for i:= 1 to n do
begin
writeln('vvedi ima',i,'cheloveka v 1 classe');
readln(q);
end;
for i:= 1 to m do
begin
writeln('vvedi ima',i,'cheloveka v 2 classe');
readln(w);
end;
for i:= 1 to b do
begin
writeln('vvedi ima ',i,'cheloveka v 3 classe');
readln(e);
end;
for i:= 1 to v do
begin
writeln('vvedi ima',i,'cheloveka v 4 classe');
readln(r);
end;
for i:= 1 to n do
begin
writeln('vvedi fam ',i,'cheloveka v 1 classe');
readln(q1);
end;
for i:= 1 to m do
begin
writeln('vvedi fam ',i,'cheloveka v 2 classe');
readln(w1);
end;
for i:= 1 to b do
begin
writeln('vvedi fam ',i,'cheloveka v 3 classe');
readln(e1);
end;
for i:= 1 to v do
begin
writeln('vvedi fam ',i,'cheloveka v 4 classe');
readln(r1);
end;
код-то оформить не помешает. и давай дерзай что-то вроде
Код:
помогите написать программу по информатике на тему:"движение точки внутри кривой с отражением"
помогите пожалуйста. кому не трудно. задана произвольная замкнутая кривая. Написать программу движения точки внутри кривой с отражениями.
Цитата: ДенисJa
помогите написать программу по информатике на тему:"движение точки внутри кривой с отражением"
Если язык - СИ, точка может быть похожа на окружность, а кривая - квадрат, то у меня есть для тебя готовый код.
ну скинь если сможешь
И ещё: оно написанно с использованием Qt.
http://rghost.ru/23139661
http://rghost.ru/23139661