С клавиатуры вводится три строки вида Фамилия пробел Имя пробел Рост.Определить фамилию и...

Question

С клавиатуры вводится три строки вида Фамилия пробел Имя пробел Рост.Определить фамилию и имя самого высокого человека d pascal abc

Comments

жду

---

Тут для 3 человек. Написано же в условии: ТРИ СТРОКИ вида Имя_Фамилия_Рост.

---

а - Иван Иванов, b - Павел Иванов, c - Сергей Иванов. И следовательно, а1 рост Ивана, b1 - рост Павла, c1 - рост Сергея, и сравнивать именно переменные а1...с1

---

я просто уже не знаю что делать в ср сеестровка

---

ты уже напиши

---

Если для 3их это не вопрос, я сейчас поем и напишу)

---

Ну потому что 3 человека в 1 одну переменную тяжеловато в обработке да и правильно работать она вряд ли будет

---

Как я хотел, в переменную а ввести Имя и Фамилия, в а1 - рост, потом сравнивать рост, и от верности выводить переменную а. Но почему-то не выходит..

---

SkyBy ну если так то это проще. ) А я уже начал стряпять для неограничего кол-ва. Ну сейчас тогда для 3-их напишу.

---

то пачан ерут но не то

Answer 1

Type  str = array [1..100] of char;
var  maxs, tmps : str; 
count, max, tmp, ctmp : integer;

procedure reads (var s : str; var len, val : integer);
var 
b : boolean; 
 c : char; 
 i : integer;
begin 
 i := 0; b := false; 
 repeat 
  read (c); 
  if not b or (c <> ' ') then   
begin   
   if c = ' ' then b := true; 
    inc (i);   
   s[i] := c; 
    c := '1'; 
  end; 
 until b and (c = ' ');
  len := i; 
 readln (val);
end;
begin
assign (input, 'input.txt'); reset (input);
  reads (maxs, count, max); 
 while not eof do 
 begin   
 reads (tmps, ctmp, tmp);
    if tmp > max then   
 begin     
 max := tmp;
 count := ctmp; 
 maxs := tmps;
    end; 
end; 
 for tmp := 1 to count do write (maxs[tmp]);
end.

Comments

все равно

---

я понял

---

это

---

while pos(' ',s1)>0 do
begin
//s1:=copy(s1,1,pos(' ',s1));//первое слов\
val(copy(s1,1,pos(' ',s1)),x,code);
delete(s1,1,pos(' ',s1));
if code=0 then
k:=k+x;
end;
ghgst:=k;
end;
var
s:string;
N:real;
begin
vvod(S);//Ввести строку S
N:=ghgst(S);//Посчитать сумму чисел N в строке S
writeln('В строке ',s,' су

---

нужно подтипу этой procedure vvod(var st:string);
begin
writeln('Введите строку');
Readln(St);
end;
function ghgst(s1:string):real;
var
x:real;code:integer;k:real;
begin

---

ясно... тогда жди Uropb123, я упростить не смогу

---

но она не поймет

---

Emblerik спс

---

тоесть система для даунов

---

все равно