М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nas81
nas81
31.03.2021 04:23 •  Информатика

Решите в delphi 7 (бред не пишите плз)(без массива) группа студентов сдает экзамен. оценки формируются случайным образом от 2 до 5. напечатать кол-во полученых двок, трок, четверок, пятерок

👇
Ответ:
ashurovaalbina8
ashurovaalbina8
31.03.2021
 program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
   var i,x,y,z, dwa,tri,shetire,pati:Integer;
begin 
 Writeln('student Fediya='); 
 Readln(i); 
 Writeln('student Sungat=');
  readln(x);
  Writeln('student Alex='); 
 readln(y); 
Writeln('student Halif='); 
Readln(z); 
 case i of 
 2: Inc(dwa); 
  3: Inc(tri); 
 4: Inc(shetire); 
  5: Inc(pati); 
 end; 
 begin
    case x of 
 2: Inc(dwa); 
  3: Inc(tri);
   4: Inc(shetire);
   5: Inc(pati);
  end;
  end;
   begin
     case y of 
  2: Inc(dwa);
   3: Inc(tri); 
 4: Inc(shetire);   
5: Inc(pati); 
 end;   end; 
  begin     
 case z of   
2: Inc(dwa); 
 3: Inc(tri);  
4: Inc(shetire);   
5: Inc(pati);   
end;   
 end;
 WriteLn(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);
 ReadLn;
    { TODO -oUser -cConsole Main : Insert code here }end.
4,5(2 оценок)
Открыть все ответы
Ответ:
ktuj240
ktuj240
31.03.2021
Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   
4,5(26 оценок)
Ответ:
12VikaSmirnova34
12VikaSmirnova34
31.03.2021

import java.util.Scanner;

public class Authenticator {

public static void main(String[] args) {

 String login;

 String password;

 Scanner scan = new Scanner(System.in);

 

 System.out.println("login:");

 login = scan.next();

 System.out.println("password:");

 password = scan.next();

 

 if(login.equals("user") && password.equals("qwerty")){

  System.out.println("Authentication completed");

 }else{

  System.out.println("Invalid login or password");

 }

 

 scan.close();

 

}

}

Объяснение:

Краткий алгоритм этой программы:Импортируем класс Scanner(для ввода текста);В методе main создаем две переменные типа String и одну типа Scanner;Вводим значения при а;Если логин и пароль верны,то выводим Authentication completed. Иначе выводим Invalid login or password;Закрываем Scanner;
4,7(30 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ